diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-05-18 15:51:20 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-05-18 15:51:20 +0200 |
| commit | a0da3a68d12141ba226ce94027b90a01389099d0 (patch) | |
| tree | 418ccf3d1b723555bd45ecb647823a5af851097e /pretyping/constr_matching.ml | |
| parent | 5281317cb558f2b9aa6f854b9c7aeb617beba8e6 (diff) | |
| parent | a47bd32c261aa1ba6e30ef1b4d08cfc2746ce20f (diff) | |
Merge PR #6965: [api] Move universe syntax to `Glob_term`
Diffstat (limited to 'pretyping/constr_matching.ml')
| -rw-r--r-- | pretyping/constr_matching.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/constr_matching.ml b/pretyping/constr_matching.ml index b4e1a1b10..0ff6a330f 100644 --- a/pretyping/constr_matching.ml +++ b/pretyping/constr_matching.ml @@ -20,7 +20,6 @@ open EConstr open Vars open Pattern open Patternops -open Misctypes open Context.Rel.Declaration open Ltac_pretype (*i*) @@ -277,6 +276,7 @@ let matches_core env sigma allow_bound_rels | PSort ps, Sort s -> + let open Glob_term in begin match ps, ESorts.kind sigma s with | GProp, Prop Null -> subst | GSet, Prop Pos -> subst |