fact: Structure Exponent : Type := {Expo : C; Eval : H_obj_prod C1 Expo a --> b; Op_lambda : forall c : C, Map (H_obj_prod C1 c a --> b) (c --> Expo); Prf_beta_rule : Beta_rule_law Eval Op_lambda; Prf_eta_rule : Eta_rule_law Eval Op_lambda}.
imports: Binary_Products