diff options
| author | Gaëtan Gilbert | 2019-03-17 10:40:31 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-03-18 12:52:42 +0100 |
| commit | a71f586e23b0e68032c556bfa1c37df8f4358c71 (patch) | |
| tree | 876772675b8bcf7cfa3d4ff2b7ea460c62ebd04f /interp | |
| parent | 9ac5483132b42e845a0708491843693b70893eef (diff) | |
Fix constr_matching on SProp
Diffstat (limited to 'interp')
| -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 = |