Commit b8563a15 authored by Andrei Paskevich's avatar Andrei Paskevich

do not export f_map_pos and f_map_neg: traversal functions

like f_map_sign should only be applied from specialized
recursive functions and these funcitons will usually supply
the polarity argument.
parent 37e22067
......@@ -975,9 +975,6 @@ let f_map_sign fnT fnF sign f = f_label_copy f (match f.f_node with
else f_or (f_and f1p f2) (f_and (f_not f1n) f3)
| _ -> f_map fnT (fnF sign) f)
let f_map_pos fnT fnF f = f_map_sign fnT fnF true f
let f_map_neg fnT fnF f = f_map_sign fnT fnF false f
(* safe opening fold *)
let t_branch fn acc b = let _,t = t_open_branch b in fn acc t
......
......@@ -284,9 +284,6 @@ val f_map_sign : (term -> term) -> (bool -> fmla -> fmla) ->
nb: if-then-else and iff are translated if needed *)
val f_map_pos : (term -> term) -> (bool -> fmla -> fmla) -> fmla -> fmla
val f_map_neg : (term -> term) -> (bool -> fmla -> fmla) -> fmla -> fmla
val t_fold : ('a -> term -> 'a) -> ('a -> fmla -> 'a) -> 'a -> term -> 'a
val f_fold : ('a -> term -> 'a) -> ('a -> fmla -> 'a) -> 'a -> fmla -> 'a
......
......@@ -73,7 +73,7 @@ let add_ld axl d = match d with
axl, make_ls_defn ls vl (e_map elim_t elim_f e)
end
let remove_if_decl d = match d.d_node with
let elim d = match d.d_node with
| Dlogic l ->
let axl, l = map_fold_left add_ld [] l in
let d = create_logic_decl l in
......@@ -82,7 +82,7 @@ let remove_if_decl d = match d.d_node with
[decl_map (fun _ -> assert false) elim_f d]
let eliminate_if_term =
Register.store (fun () -> Trans.decl remove_if_decl None)
Register.store (fun () -> Trans.decl elim None)
let () = Register.register_transform "eliminate_if_term" eliminate_if_term
......
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