summaryrefslogtreecommitdiff
path: root/test-suite/ideal-features/Case9.v
blob: d95c2108420a43b2c99e39ddae08f7a1f7ee00bf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
(* Exemple soumis par Pierre Corbineau (bug #1671) *)

CoInductive hdlist : unit -> Type :=
| cons : hdlist tt -> hdlist tt.

Variable P : forall bo, hdlist bo -> Prop.
Variable all : forall bo l, P bo l.

Definition F (l:hdlist tt) : P tt l :=
match l in hdlist u return P u l with
| cons (cons l') => all tt _
end.