new I-rules r_into_rtrancl, r_into_trancl and a simpler proof
consts bool2if :: boolex => ifexprimrec"bool2if (Const b) = CIF b""bool2if (Var x) = VIF x""bool2if (Neg b) = IF (bool2if b) (CIF False) (CIF True)""bool2if (And b c) = IF (bool2if b) (bool2if c) (CIF False)"