Attention une mise à jour du serveur va être effectuée le vendredi 16 avril entre 12h et 12h30. Cette mise à jour va générer une interruption du service de quelques minutes.

Commit 99570532 authored by Guillaume Melquiond's avatar Guillaume Melquiond

Display the last explanation label (that is, the oldest one) in the IDE.

parent 7f895454
......@@ -571,7 +571,7 @@ let schedule_edit_proof ~debug:_ ~editor ~file ~driver ~callback goal =
raise (Found (Str.matched_group 1 lab))
let rec get_expl_fmla f =
List.iter check_expl f.Term.t_label;
List.iter check_expl (List.rev f.Term.t_label);
(match f.Term.t_node with
| Term.Tbinop(Term.Timplies,_,f) -> get_expl_fmla f
| Term.Tquant(Term.Tforall,fq) ->
......@@ -585,7 +585,7 @@ let schedule_edit_proof ~debug:_ ~editor ~file ~driver ~callback goal =
let get_explanation id fmla =
try
get_expl_fmla fmla;
List.iter check_expl id.Ident.id_label;
List.iter check_expl (List.rev id.Ident.id_label);
None
with Found e -> Some e
......
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