fact: Axiom Lan_final_parametricity : forall a b c f g (k : Lan_final f g a) (h : forall x : Type, (f x -> a) -> g x -> b) (x : b -> c), x (k b h) = k c (fun e n z => x (h e n z)).
imports: Hask.Ltac Hask.Data.Functor Hask.Data.Functor.Contravariant