proposition: Lemma lift_F_compose (X Y Z:Set) (g:X->Y) (f:Y->Z) bx: (fun bx0 => lift_F_ Y Z f (lift_F_ X Y g bx0)) bx = lift_F_ X Z (fun x => f (g x)) bx.
proof: Proof. destruct bx as [b0 x0]; trivial. Qed.
imports: WeaklyFinalCoalgebra