reserve p,p1,p2,q,r,F,G,G1,G2,H,H1,H2 for ZF-formula,
  x,x1,x2,y,y1,y2,z,z1,z2,s,t for Variable,
  a,X for set;
reserve M for non empty set,
  m,m9 for Element of M,
  v,v9 for Function of VAR,M;
reserve i,j for Element of NAT;

theorem
  M,v |= (p => q) => ((p => r) => (p => q '&' r)) & M |= (p => q) => ((p
  => r) => (p => q '&' r))
proof
  now
    let v;
    now
      assume
A1:   M,v |= p => q;
      now
        assume M,v |= p => r;
        then M,v |= p implies M,v |= r & M,v |= q by A1,ZF_MODEL:18;
        then M,v |= p implies M,v |= q '&' r by ZF_MODEL:15;
        hence M,v |= p => q '&' r by ZF_MODEL:18;
      end;
      hence M,v |= (p => r) => (p => q '&' r) by ZF_MODEL:18;
    end;
    hence M,v |= (p => q) => ((p => r) => (p => q '&' r)) by ZF_MODEL:18;
  end;
  hence thesis;
end;
