(* Snd *)

(* Specifications: *)
Lemma Snd_map_law : forall a b : PROD A B, Map_law (Hom_r (u:=a) (t:=b)).
Canonical Structure Snd_map (a b : PROD A B) :=
Build_Map (Snd_map_law (a:=a) (b:=b)).
Lemma Snd_comp_law : Fcomp_law Snd_map.
Lemma Snd_id_law : Fid_law Snd_map.
Canonical Structure Snd := Build_Functor Snd_comp_law Snd_id_law.