blob: 5f13caafc40fc413fbaf4c8a918157aa33ae58d0 (
plain)
1
2
3
4
|
t_rect =
[P:(t->Type); f:([x:=t](x0:x)(P x0)->(P (k x0)))]
Fix F{F [t:t] : (P t) := <P>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)
|