reserve p,q for Rational;
reserve g,m,m1,m2,n,n1,n2 for Nat;
reserve i,i1,i2,j,j1,j2 for Integer;
reserve R for Ring, F for Field;

theorem Th90:
for F being Field, E being Subfield of F holds PrimeField F is Subfield of E
proof
  let F be Field, E be Subfield of F;
  the carrier of PrimeField F c= the carrier of E
  proof
    let x be object;
    assume x in the carrier of PrimeField F;
    then x in carrier/\ F by Def10;
    then ex y being Element of F st
    x = y & for K being Subfield of F holds y in K;
    then x in E;
    hence thesis;
  end;
  hence thesis by EC_PF_1:6;
end;
