Commit 94f3ba6a authored by Andrei Paskevich's avatar Andrei Paskevich

partly revert b6878d8d, abstraction isn't costly anymore

parent 19f83f49
......@@ -60,7 +60,10 @@ let is_arrow_ty ty = match ty.ty_node with
| _ -> false
let wp_forall v f =
if is_arrow_ty v.vs_ty then f else match f.f_node with
if is_arrow_ty v.vs_ty then f else
if f_occurs_single v f then f_forall_close_simp [v] [] f else f
(*
match f.f_node with
| Fbinop (Fimplies, {f_node = Fapp (s,[{t_node = Tvar u};r])},h)
when ls_equal s ps_equ && vs_equal u v && not (t_occurs_single v r) ->
f_subst_single v r h
......@@ -72,6 +75,7 @@ let wp_forall v f =
f_forall_close_simp [v] [] f
| _ ->
f
*)
(* utility functions for building WPs *)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment