End set_lambda_def.
(* ve'rification des lois *)

(* Specifications: *)
Lemma S_beta_rule : Beta_rule_law (C1:=SET_hasBinProd) S_eval S_Lambda.
Lemma S_eta_rule : Eta_rule_law (C1:=SET_hasBinProd) S_eval S_Lambda.
Canonical Structure SET_hasExponent := Build_Exponent S_beta_rule S_eta_rule.