Spezifikationsmodule - Software and Systems Engineering - TUM

define setCopiedMIFTerm(
orig:MIFTerm, copy: MIFTerm,
new_constructor_map:set(
orig:(one:Constructor, two:Constructor), copy:Constructor),
new_copy_constructor_map:set(
orig:Constructor, copy:Constructor),
new_appl_map:set(orig:(one:Appl, two:Appl), copy:Appl),
new_copy_appl_map:set(orig:Appl, copy:Appl),
new_lvcn_map:set(
orig:(one:LocVariableConst, two:LocVariableConst),
copy:LocVariableConst),
new_copy_lvcn_map:set(
orig:LocVariableConst, copy:LocVariableConst)
) as (
exists ncon:new_constructor_map . (
( orig.Model = ncon.orig.one or orig.Model = ncon.orig.two
) and result has Model(copy, ncon.copy)
) or
exists nccon:new_copy_constructor_map . (
orig.Model = nccon.orig and result has Model(copy, nccon.copy)
) or
exists napp:new_appl_map . (
( orig.Model = napp.orig.one or orig.Model = napp.orig.two
) and result has Model(copy, napp.copy)
) or
exists ncapp:new_copy_appl_map . (
orig.Model = ncapp.orig and result has Model(copy, ncapp.copy)
) or
exists nlvr:new_lvcn_map . (
( orig.Model = nlvr.orig.one or orig.Model = nlvr.orig.two
) and result has Model(copy, nlvr.copy)
) or
exists nclvr:new_copy_lvcn_map . (
orig.Model=nclvr.orig and result has Model(copy,nclvr.copy)
) or
result has Model(copy, orig.Model)
).
define testSelectorType (
sel:Selector, t:Type
) := (
exists ta:TAppl . (
sel.Type = ta and
exists ta_arg:(ta.TArgs) . (
indexOf(ta_arg, ta, "TArgs") = 1 and
ta_arg = t
))).
define selectorTypeEqual (
65