proposition: Lemma Saleph_mon a b: Sinfinite a -> a <=s b -> Saleph b -> Saleph a.
proof: Proof. move => ia [f fab] [ha [r wor]] ; split => //. exact:(wor_from_injection wor fab). Qed.
imports: mathcomp(ssreflect ssrbool eqtype ssrfun)