File tree Expand file tree Collapse file tree 2 files changed +2
-2
lines changed Expand file tree Collapse file tree 2 files changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -179,7 +179,7 @@ let realizer_command arity name var real =
179
179
let env = Global. env () in
180
180
let sigma = Evd. from_env env in
181
181
let (sigma, var) = Constrintern. interp_open_constr env sigma var in
182
- Obligations . check_evars env sigma;
182
+ RetrieveObl . check_evars env sigma;
183
183
let real = fun sigma -> Constrintern. interp_open_constr env sigma real in
184
184
ignore(declare_realizer arity (ref sigma) env name var ~real )
185
185
Original file line number Diff line number Diff line change @@ -973,7 +973,7 @@ and weaken_unused_free_rels env_rc sigma term =
973
973
debug_rel_context [`Fix ] " env_rv = " Environ. empty_env (List. map toDecl env_rc);
974
974
let set = collect_free_vars 1 (Termops. free_rels sigma term) env_rc in
975
975
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
977
977
debug_string [`Fix ] (Printf. sprintf " [%s]" (String. concat " ;" (List. map string_of_int lst)));
978
978
let rec dup n x acc = if n < = 0 then acc else dup (n-1 ) x (x::acc) in
979
979
let rec gen_sub min pos len acc = function
You can’t perform that action at this time.
0 commit comments