HOL-OCL
/
su4sml
1
0
Fork 0
Code Issues Pull Requests Releases Activity

git-svn-id: https://projects.brucker.ch/su4sml/svn/su4sml/trunk@7616 3260e6d1-4efc-4170-b0a7-36055960796d

This commit is contained in:
Achim D. Brucker 2008-04-06 16:46:30 +00:00
parent 2c85758cbc
commit 75897a0a0f
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
su4sml/src/wfcpog/library.sml
View File

@ -115,10 +115,6 @@ fun term_of_postcondition ((a:string option),(t:OclTerm)) = t
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")
| conjugate_terms [x:OclTerm] = (x)
| conjugate_terms ((h:OclTerm)::tail) =