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