proposition: Theorem app_pmap_compose : ∀ I A B (f : A → B), ixpure \o f = ixmap f \o @ixpure _ _ _ I _.
proof: Proof. intros. extensionality x. unfold comp. rewrite <- ixapp_homomorphism. rewrite app_ixmap_unit. reflexivity. Qed.
imports: Hask.Ltac Coq.Program.Equality Coq.Unicode.Utf8 FunctionalExtensionality Iso Tuple