Spezifikationsmodule - Software and Systems Engineering - TUM

) or
exists nlvar_arg:new_lvcn_map . (
nlvar_arg.orig.one = param1 and
nlvar_arg.orig.two = param2 and
result has Args(mk_app.copy, nlvar_arg.copy,
indexOf(param1, mk_app.orig.one, "Args"))
) or
(param1 = param2 and
result has Args(mk_app.copy, param1,
indexOf(param1, mk_app.orig.one, "Args"))
)))) and
/* copy appls */
exists new_copy_appl_map:map orig:copy_appl_set
to copy:new Appl . (
forall ncappm1:new_copy_appl_map .
forall ncappm2:new_copy_appl_map . (
ncappm1.orig = ncappm2.orig equiv ncappm1.copy = ncappm2.copy
) and
forall cp_app:new_copy_appl_map . (
(exists ncon_head2:new_constructor_map . (
(cp_app.orig.Head = ncon_head2.orig.one or
cp_app.orig.Head = ncon_head2.orig.two
) and
result has Head(cp_app.copy, ncon_head2.copy)
) or
/* normal const */
result has Head(cp_app.copy, cp_app.orig.Head)
) and
forall param:(cp_app.orig.Args) . (
exists ncapp_arg:new_copy_appl_map . (
ncapp_arg.orig = param and
result has Args(cp_app.copy, ncapp_arg.copy,
indexOf(param, cp_app.orig, "Args"))
) or
exists ncon_arg2:new_constructor_map . (
(ncon_arg2.orig.one = param or
ncon_arg2.orig.two = param
) and
result has Args(cp_app.copy, ncon_arg2.copy,
indexOf(param, cp_app.orig, "Args"))
) or
exists nlvar_arg2:new_lvcn_map . (
(nlvar_arg2.orig.one = param or
nlvar_arg2.orig.two = param
) and
result has Args(cp_app.copy, nlvar_arg2.copy,
indexOf(param, cp_app.orig, "Args"))
) or
exists nlvarcopy_arg:new_copy_lvcn_map . (
87