let size_of_state = P.size_of_state
+let tooflex (_,l,_,_) =
+ match l with
+ | Terms.Equation (l,r,_,o) ->
+ (match l,r,o with
+ | Terms.Var _, _, (Terms.Incomparable | Terms.Invertible) -> true
+ | _, Terms.Var _,(Terms.Incomparable | Terms.Invertible) -> true
+ | _ -> false)
+ | _ -> false
+;;
+
let forward_infer_step status metasenv subst context s t ty =
let bag = P.bag_of_state s in
let saturate (t,ty) =
NCicBlob.saturate status metasenv subst context t ty in
let bag,clause = P.mk_passive bag (saturate (t,ty)) in
if Terms.is_eq_clause clause then
- ((*prerr_endline "is eq";*)
- P.forward_infer_step (P.replace_bag s bag) clause 0)
+ if tooflex clause then (debug (lazy "pruning tooflex"); s)
+ else P.forward_infer_step (P.replace_bag s bag) clause 0
else ((*print (lazy "not eq");*) s)
;;