diff options
| author | Pierre-Marie Pédrot | 2019-03-20 09:25:29 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-03-20 09:25:29 +0100 |
| commit | b899b102e071ba0faa07949b2ee66bbb7dade23b (patch) | |
| tree | dacdbac86eafb367d5a865f040b70343cb80a1a2 /interp/constrextern.ml | |
| parent | e5a2f0452cf9523bc86e71ae6d2ac30883a28be6 (diff) | |
| parent | a71f586e23b0e68032c556bfa1c37df8f4358c71 (diff) | |
Merge PR #9791: Fix constr_matching on SProp
Ack-by: SkySkimmer
Reviewed-by: ppedrot
Diffstat (limited to 'interp/constrextern.ml')
| -rw-r--r-- | interp/constrextern.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index d5cb25d1fb..c2afa097bb 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -1314,7 +1314,10 @@ let rec glob_of_pat avoid env sigma pat = DAst.make @@ match pat with Array.map (fun (bl,_,_) -> bl) v, Array.map (fun (_,_,ty) -> ty) v, Array.map (fun (_,bd,_) -> bd) v) - | PSort s -> GSort s + | PSort Sorts.InSProp -> GSort GSProp + | PSort Sorts.InProp -> GSort GProp + | PSort Sorts.InSet -> GSort GSet + | PSort Sorts.InType -> GSort (GType []) | PInt i -> GInt i let extern_constr_pattern env sigma pat = |