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