Section set_lambda_fun1_def.
Variable c : C.
Definition S_lambda_fun2 (a : A) := f (Build_Sprod c a).
Definition S_lambda_fun1 := Build_Map S_lambda_map_law2.
End set_lambda_fun1_def.
Definition S_lambda1_fun := Build_Map S_lambda_map_law1.
End set_lambda_fun_def.
Definition S_Lambda := Build_Map S_lambda_map_law.
End set_lambda_def.
(* ve'rification des lois *)

Lemma S_beta_rule : Beta_rule_law (C1:=SET_hasBinProd) S_eval S_Lambda.