fact: Definition rxcnf_or (polarity:bool) (k: kind) (e1 e2 : TFormula TX AF k) := let '(e1,t1) := RXCNF polarity e1 in let '(e2,t2) := RXCNF polarity e2 in if polarity then let (f',t') := ror_cnf_opt e1 e2 in (f', merge t1 (merge t2 t')) else (and_cnf_opt e1 e2, merge t1 t2).
imports: List Refl Bool Relation_Definitions Setoid