proposition: Lemma sch_gch: GenContHypothesis -> SingCardHypothesis.
proof: Proof. move => gch x ix pa. have pb:= (cofinality_small ix). move: (infinite_power10 gch (\cf x) ix); move => [_ _ pc _]. apply: pc => //; apply: (cleR (proj31 pb)). Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)