Commit 2028bea2 authored by Jean-Christophe Filliâtre's avatar Jean-Christophe Filliâtre
Browse files

print_fmla -> print_term

parent 9c4c6599
......@@ -173,7 +173,7 @@ let has_singleton_type pv = is_singleton_ty pv.pv_effect.vs_ty
*)
let quantify ?(all=false) env rm ef f =
eprintf "@[<hov 2>quantify: all=%b ef=%a f=@[%a@]@]@."
all E.print ef Pretty.print_fmla f;
all E.print ef Pretty.print_term f;
let sreg = ef.E.writes in
let sreg =
if all then
......
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