blob: a35885651f6a521ace3274904c649c9fb1e7d178 (
plain)
1
2
3
4
5
6
|
t_rect =
[P:(t ->Type); f:([x:=t](x0:x)(P x0) ->(P (k x0)))]
Fix F
{F [t:t] : (P t) := <[t0:t](P t0)>Cases t of (k x x0) => (f x0 (F x0)) end}
: (P:(t ->Type))([x:=t](x0:x)(P x0) ->(P (k x0))) ->(t:t)(P t)
|