Nous avons procédé ce jeudi matin 08 avril 2021 à une MAJ de sécurité urgente. Nous sommes passé de la version 13.9.3 à la version 13.9.5 les releases notes correspondantes sont ici:

Commit b8563a15 by 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 ... @@ -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) else f_or (f_and f1p f2) (f_and (f_not f1n) f3) | _ -> f_map fnT (fnF sign) f) | _ -> 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 *) (* safe opening fold *) let t_branch fn acc b = let _,t = t_open_branch b in fn acc t 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) -> ... @@ -284,9 +284,6 @@ val f_map_sign : (term -> term) -> (bool -> fmla -> fmla) -> nb: if-then-else and iff are translated if needed *) 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 t_fold : ('a -> term -> 'a) -> ('a -> fmla -> 'a) -> 'a -> term -> 'a val f_fold : ('a -> term -> 'a) -> ('a -> fmla -> 'a) -> 'a -> fmla -> '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 ... @@ -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) axl, make_ls_defn ls vl (e_map elim_t elim_f e) end end let remove_if_decl d = match d.d_node with let elim d = match d.d_node with | Dlogic l -> | Dlogic l -> let axl, l = map_fold_left add_ld [] l in let axl, l = map_fold_left add_ld [] l in let d = create_logic_decl l in let d = create_logic_decl l in ... @@ -82,7 +82,7 @@ let remove_if_decl d = match d.d_node with ... @@ -82,7 +82,7 @@ let remove_if_decl d = match d.d_node with [decl_map (fun _ -> assert false) elim_f d] [decl_map (fun _ -> assert false) elim_f d] let eliminate_if_term = 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 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