proposition: Lemma connected_component_refl A x : A x -> connected_component A x x.
proof: Proof. by move=> Ax; exists [set x] => //; split => // _ ->. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap generic_quotient) mathcomp(boolp classical_sets functions) mathcomp(cardinality mathcomp_extra fsbigop) reals signed