reserve X,Y,z,s for set, L,L1,L2,A,B for List of X, x for Element of X,
  O,O1,O2,O3 for Operation of X, a,b,y for Element of X, n,m for Nat;

theorem
  n <= m & L1 c= L2 & O1 c= O2 implies L1 WHEREge(O1,m) c= L2 WHEREge(O2,n)
  proof
    assume
A1: n <= m & L1 c= L2 & O1 c= O2;
    let z be object; assume z in L1 WHEREge(O1,m); then
    consider x such that
A2: z = x & m c= card(x.O1) & x in L1;
    Segm n c= Segm m & x.O1 c= x.O2 by A1,Th1,NAT_1:39; then
    n c= card (x.O1) & card (x.O1) c= card (x.O2) by A2,CARD_1:11;
    then n c= card (x.O2);
    hence thesis by A1,A2;
  end;
