End ylpsi_tau_def.

Lemma YLpsi_nt_law :
forall (a a' : C) (g : a --> a') (F F' : Functor C SET)
(T : NT F F') (x : F a) (b : C) (f : a' --> b),
YLpsi_tau a' F' ((FMor F g o T a') x) b f =_S
(NtH g o_NTv YLpsi_tau a F x o_NTv T) b f.