theorem Th30:
  pi_1([:S,T:],[s,t]), product <*pi_1(S,s),pi_1(T,t)*> are_isomorphic
proof
  take FGPrIso(s,t);
  thus thesis;
end;
