bug fix conjugate_invariants
git-svn-id: https://projects.brucker.ch/su4sml/svn/su4sml/trunk@7899 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
477adca8d8
commit
1acb029018
|
@ -198,7 +198,7 @@ fun conjugate_invariants_help [] model = []
|
||||||
let
|
let
|
||||||
(* get the invariants of all parents *)
|
(* get the invariants of all parents *)
|
||||||
val parents = parents_of class model
|
val parents = parents_of class model
|
||||||
val invs = List.map (fn a => Predicate(Variable(varcounter.nextStr(),Rep_Core.type_of a),Rep_Core.type_of a,name_of_inv a,[selfarg (Rep_Core.type_of a)])) parents
|
val invs = List.map (fn a => Predicate(Variable(varcounter.nextStr(),Rep_Core.type_of a),Rep_Core.type_of a,name_of_inv a,[])) parents
|
||||||
in
|
in
|
||||||
if (List.length(invs) = 0)
|
if (List.length(invs) = 0)
|
||||||
then (conjugate_invariants_help clist model)
|
then (conjugate_invariants_help clist model)
|
||||||
|
|
Loading…
Reference in New Issue