diff options
| author | Emilio Jesus Gallego Arias | 2019-06-21 22:50:08 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-07-08 15:59:10 +0200 |
| commit | c51fb2fae0e196012de47203b8a71c61720d6c5c (patch) | |
| tree | e49c2d38b6c841dc6514944750d21ed08ab94bce /tactics/equality.ml | |
| parent | 437063a0c745094c5693d1c5abba46ce375d69c6 (diff) | |
[api] Deprecate GlobRef constructors.
Not pretty, but it had to be done some day, as `Globnames` seems to be
on the way out.
I have taken the opportunity to reduce the number of `open` in the
codebase.
The qualified style would indeed allow us to use a bit nicer names
`GlobRef.Inductive` instead of `IndRef`, etc... once we have the
tooling to do large-scale refactoring that could be tried.
Diffstat (limited to 'tactics/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 98db6cbb97..7c90c59f61 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -380,7 +380,7 @@ let find_elim hdcncl lft2rgt dep cls ot = Logic.eq or Jmeq just before *) assert false in - pf_constr_of_global (ConstRef c) + pf_constr_of_global (GlobRef.ConstRef c) else let scheme_name = match dep, lft2rgt, inccl with (* Non dependent case *) @@ -399,7 +399,7 @@ let find_elim hdcncl lft2rgt dep cls ot = let c, eff = find_scheme scheme_name ind in Proofview.tclEFFECTS eff <*> - pf_constr_of_global (ConstRef c) + pf_constr_of_global (GlobRef.ConstRef c) | _ -> assert false end @@ -989,7 +989,7 @@ let ind_scheme_of_eq lbeq to_kind = (* use ind rather than case by compatibility *) let kind = Elimschemes.nondep_elim_scheme from_kind to_kind in let c, eff = find_scheme kind (destIndRef lbeq.eq) in - ConstRef c, eff + GlobRef.ConstRef c, eff let discrimination_pf e (t,t1,t2) discriminator lbeq to_kind = |