theorem Th5:
  f is_a_proof_wrt_IPC X implies 1 <= len f
proof
  assume f is_a_proof_wrt_IPC X; then
  0+1 <= len f by NAT_1:13;
  hence thesis;
end;
