let pif = function
  | (_,PtruePtrue ) -> Ptrue
  | (_,PfalsePfalse ) -> Pfalse
  | (t,p1,p2) -> Pif (t,p1,p2)