Spezifikationsmodule - Software and Systems Engineering - TUM

call testSelectorType(mk_sels.orig.one,
ntcm2_elem_sels.orig.one.TConst) and
call testSelectorType(mk_sels.orig.two,
ntcm2_elem_sels.orig.two.TConst) and
result has TArgs(ntappl1, ntcm2_elem_sels.copy, 1)
)
and result has DefinedType(mk_sels.copy, ntappl1)
)) and
/* copy selectors */
exists new_copy_selector_map: map orig:copy_selector_set
to copy:new Selector . (
forall cselm1:new_copy_selector_map .
forall cselm2:new_copy_selector_map . (
cselm1.orig = cselm2.orig equiv cselm1.copy = cselm2.copy
) and
forall cp_sels:new_copy_selector_map . (
result has Name(cp_sels.copy, cp_sels.orig.Name) and
result has Consts(new_dtd_module, cp_sels.copy) and
exists nccm_elem_sels:new_copy_constructor_map . (
cp_sels.orig.Constructor = nccm_elem_sels.orig and
result has Selectors(nccm_elem_sels.copy, cp_sels.copy,
indexOf(cp_sels.orig,
cp_sels.orig.Constructor, "Selectors"))
) and
exists ntappl2:new TAppl . (
exists tcnst2:TConst . (
tcnst2.Name = "->" and
result has THead(ntappl2, tcnst2)
) and
exists ntcm3_elem_sels:new_tconst_map . (
(cp_sels.orig.Constructor.DataDef =
ntcm3_elem_sels.orig.one or
cp_sels.orig.Constructor.DataDef =
ntcm3_elem_sels.orig.two
) and
result has TArgs(ntappl2, ntcm3_elem_sels.copy, 0)
) and
exists tcnst3:TConst . (
call testSelectorType(cp_sels.orig, tcnst3) and
result has TArgs(ntappl2, tcnst3, 1)
) and
result has DefinedType(cp_sels.copy, ntappl2)
)) and
/* build states */
exists new_state_map:map orig:state_map to copy:new State . (
forall nsm1:new_state_map . forall nsm2:new_state_map . (
nsm1.orig = nsm2.orig equiv nsm1.copy = nsm2.copy
) and
81