blob: 484ac6fd38e58d129de3c9d4c5e6047d28e0562f (
plain)
1
2
3
4
5
6
|
Inductive typ : forall (T:Type), list T -> Type -> Prop :=
| Get : forall (T:Type) (l:list T), typ T l T.
Derive Inversion inv with
(forall (X: Type) (y: list nat), typ nat y X) Sort Prop.
|