src/ZF/AC/Transrec2.thy
changeset 1155 928a16e02f9f
parent 992 4ef4f7ff2aeb
child 1203 a39bec971684
equal deleted inserted replaced
1154:bc295e3dc078 1155:928a16e02f9f
    12   
    12   
    13   transrec2               :: "[i, i, [i,i]=>i] =>i"
    13   transrec2               :: "[i, i, [i,i]=>i] =>i"
    14 
    14 
    15 defs
    15 defs
    16 
    16 
    17   transrec2_def  "transrec2(alpha, a, b) ==   			\
    17   transrec2_def  "transrec2(alpha, a, b) ==   			
    18 \		         transrec(alpha, %i r. if(i=0,   	\
    18 		         transrec(alpha, %i r. if(i=0,   	
    19 \		                  a, if(EX j. i=succ(j),   	\
    19 		                  a, if(EX j. i=succ(j),   	
    20 \		                  b(THE j. i=succ(j), r`(THE j. i=succ(j))),   \
    20 		                  b(THE j. i=succ(j), r`(THE j. i=succ(j))),   
    21 \		                  UN j<i. r`j)))"
    21 		                  UN j<i. r`j)))"
    22 
    22 
    23 end
    23 end