summaryrefslogtreecommitdiff
path: root/test-suite/output/Cases.out
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)