diff options
| author | Pierre-Marie Pédrot | 2018-09-11 13:45:39 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-09-11 13:45:39 +0200 |
| commit | ccb701d78394a108daf25e62d40ba059aa3fce62 (patch) | |
| tree | 77caaae4b11615a5ec0d7214e992bc461f82aeee | |
| parent | c555a1b74ff745c7ee964c2d53463db190dc6705 (diff) | |
| parent | b9ad51bb8aa4fbd1bd54314797428a1a0ae19fde (diff) | |
Merge remote-tracking branch 'herbelin/master+globenv-coq-pr7288'
| -rw-r--r-- | src/tac2core.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/tac2core.ml b/src/tac2core.ml index 8a7d2034fc..6ff353ce30 100644 --- a/src/tac2core.ml +++ b/src/tac2core.ml @@ -1030,7 +1030,7 @@ let () = let c, sigma = Pfedit.refine_by_tactic env sigma concl tac in (EConstr.of_constr c, sigma) in - Pretyping.register_constr_interp0 wit_ltac2 interp + GlobEnv.register_constr_interp0 wit_ltac2 interp let () = let interp ist env sigma concl id = @@ -1040,7 +1040,7 @@ let () = let sigma = Typing.check env sigma c concl in (c, sigma) in - Pretyping.register_constr_interp0 wit_ltac2_quotation interp + GlobEnv.register_constr_interp0 wit_ltac2_quotation interp let () = let pr_raw id = Genprint.PrinterBasic mt in |