Section ordre.
Variable A : Set.
Variable f g : A -> nat.
Definition e_lexfg (a b : A) := f a > f b \/ f a = f b /\ g a > g b.
End ordre.
Notation lexfg := (e_lexfg _) (only parsing).
(* <Warning> : Syntax is discontinued *)
Hint Resolve lexfg_systemSL.
Hint Resolve lexfg_app_l.
Hint Resolve lexfg_app_r.
Hint Resolve lexfg_lambda.
Hint Resolve lexfg_env_t.
Hint Resolve lexfg_env_s.
Hint Resolve lexfg_cons_t.
Hint Resolve lexfg_cons_s.
Hint Resolve lexfg_comp_l.
Hint Resolve lexfg_comp_r.
Hint Resolve lexfg_lift.
(***************************************************)
(*   la relation sigma-lift (SL) est noetherienne  *)
(***************************************************)

Theorem relSL_noetherian :
forall b : wsort, explicit_noetherian _ (e_relSL b).