reserve A for QC-alphabet;
reserve sq for FinSequence,
  x,y,z for bound_QC-variable of A,
  p,q,p1,p2,q1 for Element of QC-WFF(A);
reserve s,t for bound_QC-variable of A;
reserve F,G,H,H1 for Element of QC-WFF(A);

theorem
  H is conditional implies H = (the_antecedent_of H) => ( the_consequent_of H)
proof
  given F,G such that
A1: H = F => G;
  the_antecedent_of H = F by A1,Th30;
  hence thesis by A1,Th30;
end;
