reserve X for set;
reserve a,b,c,k,m,n for Nat;
reserve i,j for Integer;
reserve r,s for Real;
reserve p,p1,p2,p3 for Prime;
reserve z for Complex;

theorem Th14:
  for a,b being Nat, m being non zero Nat holds
  Product Sgm {p where p is Prime: p divides m & p divides a},
  Product Sgm
     {r where r is Prime: r divides m & not r divides a & not r divides b}
  are_coprime
  proof
    let a,b;
    let m be non zero Nat;
    set A = {p where p is Prime: p divides m & p divides a};
    set B =
    {r where r is Prime: r divides m & not r divides a & not r divides b};
    assume not thesis;
    then consider P being Prime such that
A1: P divides Product Sgm A and
A2: P divides Product Sgm B by PYTHTRIP:def 2;
    A is included_in_Seg by Lm21;
    then P in A by A1,Th12,Lm23;
    then
A3: ex p being Prime st P = p & p divides m & p divides a;
    B is included_in_Seg by Lm22;
    then P in B by A2,Th12,Lm24;
    then ex r being Prime st P = r & r divides m & not r divides a &
    not r divides b;
    hence thesis by A3;
  end;
