fact: Definition rxcnf_iff (polarity:bool) (k: kind) (e1 e2 : TFormula TX AF k) := let '(c1,t1) := RXCNF (negb polarity) e1 in let '(c2,t2) := RXCNF false e2 in let '(c3,t3) := RXCNF polarity e1 in let '(c4,t4) := RXCNF true e2 in let (f',t') := ror_cnf_opt (and_cnf_opt c1 c2) (and_cnf_opt c3 c4) in (f', merge t1 (merge t2 (merge t3 (merge t4 t')))) .
imports: List Refl Bool Relation_Definitions Setoid