set E = EqRel T,a;
consider C being constant Loop of a;
A1: the carrier of (pi_1 T,a) = Class (EqRel T,a) by TOPALG_1:def 3;
then {(Class (EqRel T,a),C)} = Class (EqRel T,a) by Th17;
hence pi_1 T,a is trivial by A1; :: thesis: verum