proposition: Lemma codom_id T : codom id <--> [set: T].
proof: Proof. by move=> x; split=> // _; exists x. Qed.
imports: mathcomp.ssreflect.ssreflect Classes.RelationClasses Classes.Morphisms List Tactics mathcomp(ssrfun ssrbool ssrnat seq)