MAJ terminée. Nous sommes passés en version 14.6.2 . Pour consulter les "releases notes" associées c'est ici :

https://about.gitlab.com/releases/2022/01/11/security-release-gitlab-14-6-2-released/
https://about.gitlab.com/releases/2022/01/04/gitlab-14-6-1-released/

Commit a908f0e3 authored by Stefan Berghofer's avatar Stefan Berghofer
Browse files

fixed incorrect assumptions in realization code

parent 94b1bdd4
......@@ -418,20 +418,20 @@ let print_task printer_args realize fmt task =
| _ -> assert false
) Mid.empty task in
(* two cases: task is clone T with [] or task is a real goal *)
let thname, realized_theories = match task with
| None -> assert false
let rec upd_realized_theories = function
| Some { Task.task_decl = { Theory.td_node =
Theory.Decl { Decl.d_node = Decl.Dprop (Decl.Pgoal, pr, _) }}} ->
id_unique thprinter pr.pr_name, realized_theories
| Some { Task.task_decl = { Theory.td_node = Theory.Clone (th,_) }} ->
Sid.iter (fun id -> ignore (id_unique iprinter id)) th.Theory.th_local;
let id = th.Theory.th_name in
String.concat "." (th.Theory.th_path @ [id_unique thprinter id]),
Mid.remove id realized_theories
| Some { Task.task_decl = { Theory.td_node = td } } ->
let name = match td with
| Theory.Decl { Decl.d_node = Dprop (_, pr, _) } ->
id_unique thprinter pr.pr_name
| _ -> "goal"
in
name, realized_theories in
| Some { Task.task_decl = { Theory.td_node = Theory.Meta _ };
Task.task_prev = task } ->
upd_realized_theories task
| _ -> assert false in
let thname, realized_theories = upd_realized_theories task in
(* make names as stable as possible by first printing all identifiers *)
let realized_theories' = Mid.map fst realized_theories in
let realized_symbols = Task.used_symbols realized_theories' in
......
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