Skip to content

Commit a03d40d

Browse files
authored
Merge pull request #50 from ejgallego/proof+remove_special_case_first_declaration_in_mutual
[coq] Overlay for rocq-prover/rocq#11818
2 parents 562d6a6 + 8d90740 commit a03d40d

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

src/declare_translation.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -179,7 +179,7 @@ let realizer_command arity name var real =
179179
let env = Global.env () in
180180
let sigma = Evd.from_env env in
181181
let (sigma, var) = Constrintern.interp_open_constr env sigma var in
182-
Obligations.check_evars env sigma;
182+
RetrieveObl.check_evars env sigma;
183183
let real = fun sigma -> Constrintern.interp_open_constr env sigma real in
184184
ignore(declare_realizer arity (ref sigma) env name var ~real)
185185

src/parametricity.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -973,7 +973,7 @@ and weaken_unused_free_rels env_rc sigma term =
973973
debug_rel_context [`Fix] "env_rv = " Environ.empty_env (List.map toDecl env_rc);
974974
let set = collect_free_vars 1 (Termops.free_rels sigma term) env_rc in
975975
let lst = Int.Set.fold (fun x acc -> x::acc) set [] in
976-
let lst = List.sort Pervasives.compare lst in
976+
let lst = List.sort compare lst in
977977
debug_string [`Fix] (Printf.sprintf "[%s]" (String.concat ";" (List.map string_of_int lst)));
978978
let rec dup n x acc = if n <= 0 then acc else dup (n-1) x (x::acc) in
979979
let rec gen_sub min pos len acc = function

0 commit comments

Comments
 (0)