Commit 03735a10 authored by Sylvain Dailler's avatar Sylvain Dailler

Removing commented code and improper indentation

parent 10bc672a
......@@ -211,26 +211,16 @@ let map metas_rewrite_pr env d =
in
let defns,axioms = Ssubst.fold conv_f substs ([],[]) in
ts_of_ls env ls (List.rev_append defns axioms),[]
| Dlogic _ -> Printer.unsupportedDecl d
| Dlogic _ -> Printer.unsupportedDecl d
"Recursively-defined symbols are not supported, run eliminate_recursion"
| Dind _ -> Printer.unsupportedDecl d
| Dind _ -> Printer.unsupportedDecl d
"Inductive predicates are not supported, run eliminate_inductive"
| Dprop (k,pr,f) ->
| Dprop (k,pr,f) ->
let substs = ty_quant env f in
let substs_len = Ssubst.cardinal substs in
let conv_f tvar (task,metas) =
(* Format.eprintf "f0: %a@. env: %a@." Pretty.print_fmla *)
(* (t_ty_subst tvar Mvs.empty f) *)
(* print_env env; *)
let f = t_ty_subst tvar Mvs.empty f in
let f = t_app_map (find_logic env) f in
(* Format.eprintf "f: %a@. env: %a@." Pretty.print_fmla f *)
(* print_env menv; *)
(* Format.eprintf "undef ls: %a, ts: %a@." *)
(* (Pp.print_iter1 Sls.iter Pp.comma Pretty.print_ls) *)
(* menv.undef_lsymbol *)
(* (Pp.print_iter1 Sts.iter Pp.comma Pretty.print_ts) *)
(* menv.undef_tsymbol; *)
if substs_len = 1 then
create_prop_decl k pr f :: task, metas
else
......
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