diff options
| author | Gaëtan Gilbert | 2020-01-09 11:30:48 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-01-09 11:30:48 +0100 |
| commit | cf5f6b5d4ecbd8c74b932b0d1e9b0de0922e5588 (patch) | |
| tree | 3b3c75f239a537fba57d5cfefc3a472a075c3ef8 /vernac | |
| parent | a9a06ffbd8aa4b5491227b6ef0e63831101b913f (diff) | |
Fix build after merge of #11164
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/prettyp.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/vernac/prettyp.ml b/vernac/prettyp.ml index 8ced35c3be..b999ce9f3f 100644 --- a/vernac/prettyp.ml +++ b/vernac/prettyp.ml @@ -1003,9 +1003,7 @@ let print_canonical_projections env sigma grefs = | Const_cs y -> GlobRef.equal y gr | _ -> false end || - match gr with - | GlobRef.ConstRef con -> Names.Constant.equal c.o_ORIGIN con - | _ -> false + GlobRef.equal c.o_ORIGIN gr in let projs = List.filter (fun p -> List.for_all (match_proj_gref p) grefs) |