fact: Fixpoint foldA (k: kind) (f : GFormula k) (acc : ACC) : ACC := match f with | TT _ => acc | FF _ => acc | X x => acc | A _ a an => F acc an | AND f1 f2 | OR f1 f2 | IFF f1 f2 | IMPL f1 _ f2 | EQ f1 f2 => foldA f1 (foldA f2 acc) | NOT f => foldA f acc end.
imports: List Refl Bool Relation_Definitions Setoid