fact: Definition FooF_to_Foo (a b : Type) (x : Fix (FooF a b)) : Foo a b := x (Foo a b) (fun x k f => match fmap[FooF a b] k f with | mkFooF a b => mkFoo _ _ a b | mkBarF a b v => mkBar _ _ a b v | mkBazF => mkBaz _ _ end).
imports: Hask.Ltac Hask.Prelude Hask.Control.Applicative Hask.Control.Monad Hask.Control.Monad.Cont Hask.Control.Monad.State Hask.Data.Functor.Contravariant Hask.Data.Functor.Identity Hask.Data.Functor.Kan Hask.Data.Functor.Yoneda Hask.Control.Lens Coq.Classes.Morphisms Coq.Setoids.Setoid Coq.Init.Datatypes Coq.Relations.Relation_Definitions FunctionalExtensionality Hask.Data.Functor.Fix Hask.Control.Monad.Freer