Attention une mise à jour du service Gitlab va être effectuée le mardi 18 janvier (et non lundi 17 comme annoncé précédemment) entre 18h00 et 18h30. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes.

Commit 8db497e0 authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

minor

parent 63ff46b1
......@@ -126,6 +126,10 @@ let check_decl kn d = match d.d_node with
| Dind dl -> List.iter (check_ind kn) dl
| Dprop (_,_,f) -> known_fmla kn f
let add_decl kn d =
let kn = add_decl kn d in
ignore (check_decl kn d);
kn
(** Task *)
......@@ -170,28 +174,22 @@ exception LemmaFound
exception GoalFound
let push_decl task d =
begin match d.d_node with
| Dprop (Plemma,_,_) -> raise LemmaFound
| _ -> ()
end;
begin match task.task_decl.d_node with
| Dprop (Pgoal,_,_) -> raise GoalFound
| _ -> ()
end;
try
let kn = add_decl task.task_known d in
ignore (check_decl kn d);
mk_task d (Some task) kn
try mk_task d (Some task) (add_decl task.task_known d)
with DejaVu -> task
let init_decl d =
try
let kn = add_decl Mid.empty d in
ignore (check_decl kn d);
mk_task d None kn
try mk_task d None (add_decl Mid.empty d)
with DejaVu -> assert false
let add_decl opt d =
begin match d.d_node with
| Dprop (Plemma,_,_) -> raise LemmaFound
| _ -> ()
end;
match opt with
| Some task -> Some (push_decl task d)
| None -> Some (init_decl d)
......
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