git-svn-id: https://projects.brucker.ch/su4sml/svn/su4sml/trunk@7616 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
2c85758cbc
commit
75897a0a0f
|
@ -115,10 +115,6 @@ fun term_of_postcondition ((a:string option),(t:OclTerm)) = t
|
||||||
OperationCall (
|
OperationCall (
|
||||||
*)
|
*)
|
||||||
|
|
||||||
(*
|
|
||||||
fun wrap_predicate term (NONE) args = Predicate (term,type_of_term term,[generate_name "gen_name"],args)
|
|
||||||
| wrap_predicate term (SOME(x)) args = Predicate (term,type_of_term term,[x],args)
|
|
||||||
*)
|
|
||||||
fun conjugate_terms [] = raise WFCPOG_LibraryError ("Empty list not conjugateable. \n")
|
fun conjugate_terms [] = raise WFCPOG_LibraryError ("Empty list not conjugateable. \n")
|
||||||
| conjugate_terms [x:OclTerm] = (x)
|
| conjugate_terms [x:OclTerm] = (x)
|
||||||
| conjugate_terms ((h:OclTerm)::tail) =
|
| conjugate_terms ((h:OclTerm)::tail) =
|
||||||
|
|
Loading…
Reference in New Issue