fact: Definition xnormalise (f:NFormula) : list (NFormula) := let (e,o) := f in match o with | Equal => (e , Strict) :: (popp e, Strict) :: nil | NonEqual => (e , Equal) :: nil | Strict => (popp e, NonStrict) :: nil | NonStrict => (popp e, Strict) :: nil end.
imports: NArith Relation_Definitions Setoid Env EnvRing List Bool OrderedRing Refl