new I-rules r_into_rtrancl, r_into_trancl and a simpler proof
consts normif :: ifex => ifex => ifex => ifexprimrec"normif (CIF b) t e = IF (CIF b) t e""normif (VIF x) t e = IF (VIF x) t e""normif (IF b t e) u f = normif b (normif t u f) (normif e u f)"