Skip to content

Commit d85ca2d

Browse files
authored
Merge pull request #548 from SkySkimmer/sort-poly-ind
Adapt to rocq-prover/rocq#18331 (mind_kelim -> mind_squashed)
2 parents b8752c6 + 131853c commit d85ca2d

File tree

1 file changed

+1
-4
lines changed

1 file changed

+1
-4
lines changed

src/coq_elpi_builtins.ml

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1612,10 +1612,7 @@ informative, as well a singleton types in Prop (which are
16121612
regarded as not non-informative).|})),
16131613
(fun i ~depth {env} _ state ->
16141614
let _, indbo = Inductive.lookup_mind_specif env i in
1615-
match indbo.Declarations.mind_kelim with
1616-
| (Sorts.InSProp | Sorts.InProp) -> raise No_clause
1617-
| Sorts.InSet when Environ.is_impredicative_set env -> raise No_clause
1618-
| (Sorts.InSet | Sorts.InType | Sorts.InQSort) -> ()
1615+
if Option.has_some indbo.Declarations.mind_squashed then raise No_clause
16191616
)),
16201617
DocAbove);
16211618

0 commit comments

Comments
 (0)