fact: Definition ror_cnf_opt f1 f2 := if is_cnf_tt f1 then (cnf_tt, null) else if is_cnf_tt f2 then (cnf_tt, null) else if is_cnf_ff f2 then (f1, null) else ror_cnf f1 f2.
imports: List Refl Bool Relation_Definitions Setoid