diff options
| author | Enrico Tassi | 2020-07-08 15:51:15 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2020-07-08 15:51:15 +0200 |
| commit | 769823c425f1b3ffc87141ede814976f6cf44128 (patch) | |
| tree | 1d22245084936bf8e7a04899dd875ac5ee6d23a8 /pretyping/recordops.ml | |
| parent | 421b2214a9bcb232739346ef27ae20df64728eb4 (diff) | |
| parent | 1e92ed4d129aea5ea4e9300a24e1135cc186c341 (diff) | |
Merge PR #12627: Fix Canonical with universe polymorphism and primitive projection
Reviewed-by: ejgallego
Ack-by: gares
Diffstat (limited to 'pretyping/recordops.ml')
| -rw-r--r-- | pretyping/recordops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/recordops.ml b/pretyping/recordops.ml index a8e934d3c6..c26da8ccc7 100644 --- a/pretyping/recordops.ml +++ b/pretyping/recordops.ml @@ -185,7 +185,7 @@ let rec cs_pattern_of_constr env t = | Rel n -> Default_cs, Some n, [] | Prod (_,a,b) when Vars.noccurn 1 b -> Prod_cs, None, [a; Vars.lift (-1) b] | Proj (p, c) -> - let { Environ.uj_type = ty } = Typeops.infer env c in + let ty = Retyping.get_type_of_constr env c in let _, params = Inductive.find_rectype env ty in Const_cs (GlobRef.ConstRef (Projection.constant p)), None, params @ [c] | Sort s -> Sort_cs (Sorts.family s), None, [] |