diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-04-01 11:14:21 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-04-01 11:24:08 +0200 |
commit | f15506263b0f85039b0b3c25c93406b9f9a5f241 (patch) | |
tree | aa511bf15714ff44c6045637c9204208f6f86ffd /tactics | |
parent | bfa91a895692f4f52e132c3814a472c5e2a24d7b (diff) |
Removing a probably incorrect on-the-fly require in a tactic.
Also removed the require function it was using, as it is absent from the
remaining of the code.
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/equality.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 838f8865d..bcfd6657e 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1230,8 +1230,6 @@ let try_delta_expand env sigma t = let eq_dec_scheme_kind_name = ref (fun _ -> failwith "eq_dec_scheme undefined") let set_eq_dec_scheme_kind k = eq_dec_scheme_kind_name := (fun _ -> k) -let eqdep_dec = qualid_of_string "Coq.Logic.Eqdep_dec" - let inject_if_homogenous_dependent_pair ty = Proofview.Goal.nf_enter begin fun gl -> try @@ -1254,7 +1252,7 @@ let inject_if_homogenous_dependent_pair ty = (* knows inductive types *) if not (Ind_tables.check_scheme (!eq_dec_scheme_kind_name()) (fst ind) && pf_apply is_conv gl ar1.(2) ar2.(2)) then raise Exit; - Library.require_library [Loc.ghost,eqdep_dec] (Some false); + Coqlib.check_required_library ["Coq";"Logic";"Eqdep_dec"]; let new_eq_args = [|pf_type_of gl ar1.(3);ar1.(3);ar2.(3)|] in let inj2 = Coqlib.coq_constant "inj_pair2_eq_dec is missing" ["Logic";"Eqdep_dec"] "inj_pair2_eq_dec" in |