+ let is_goal_trivial = function
+ | _, [Terms.Equation (_,_,_,Terms.Eq),_], [], _, _ -> true
+ | _, [Terms.Equation (l,r,_,_),_], [], vl, _ ->
+ (try ignore(Unif.unification (* vl *) [] l r); true
+ with FoUnif.UnificationFailure _ -> false)
+ | _ -> false
+