reserve X,x for set;
reserve k,m,n for Element of NAT,
  p,q,r,s,r9,s9 for Element of HP-WFF,
  T1,T2 for Tree;
reserve T1,T2 for DecoratedTree;
reserve t,t1 for FinSequence;

theorem Th22:
  p '&' q <> r => s
proof
  p '&' q = <*2*>^(p^q) by FINSEQ_1:32;
  then r => s = <*1*>^(r^s) & (p '&' q).1 = 2 by FINSEQ_1:32,41;
  hence thesis by FINSEQ_1:41;
end;
