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 Th12:
  p.1 = 2 implies p is conjunctive
proof
  assume
A1: p.1 = 2;
  per cases by Th9;
  suppose
    p is conjunctive;
    hence thesis;
  end;
  suppose
    p is conditional;
    then consider r,s such that
A2: p = r => s;
    p = <*1*>^(r^s) by A2,FINSEQ_1:32;
    hence thesis by A1,FINSEQ_1:41;
  end;
  suppose
    p is simple;
    then consider n such that
A3: p = prop n;
    2+0 = 2+(1+n) by A1,A3;
    hence thesis;
  end;
  suppose
    p = VERUM;
    hence thesis by A1;
  end;
end;
