theorem Th21:
  f is_a_proof_wrt X implies 1 <= len f
proof
  assume
 f is_a_proof_wrt X;
then A1: f <> {};
0+1 <= len f by A1,NAT_1:13;
  hence thesis;
end;
