theorem Th34:
  J,v |= ('not' p => p) => p
proof
  'not' p => p = 'not'('not' p '&' 'not' p) by QC_LANG2:def 2;
  then
A1: Valid(('not' p => p) => p, J).v = Valid('not'('not'('not' p '&' 'not' p)
  '&' 'not' p), J).v by QC_LANG2:def 2
    .= 'not'(Valid('not'('not' p '&' 'not' p) '&' 'not' p, J).v) by Th10
    .= 'not'((Valid('not'('not' p '&' 'not' p), J).v) '&' (Valid('not' p, J)
  .v)) by Th12;
  Valid('not'('not' p '&' 'not' p), J).v = 'not'(Valid('not' p '&' 'not' p
  , J).v) by Th10
    .= 'not'(Valid('not' p, J).v) by Th22
    .= 'not' 'not'(Valid(p, J).v) by Th10
    .= Valid(p, J).v;
  then
  Valid(('not' p => p) => p, J).v='not'((Valid(p, J).v) '&' 'not' (Valid(p
  , J).v)) by A1,Th10
    .= TRUE by XBOOLEAN:102;
  hence Valid(('not' p => p) => p, J).v = TRUE;
end;
