theorem Th34: p => (q => (p => q)) is ctaut
  proof
    let g;
    set v = VAL g;
A1: v.q = 1 or v.q = 0 by XBOOLEAN:def 3;
    thus v.(p => (q => (p => q))) = v.p => v.(q => (p => q)) by LTLAXIO1:def 15
    .= v.p => (v.q => v.(p => q)) by LTLAXIO1:def 15
    .= v.p => (v.q => (v.p => v.q)) by LTLAXIO1:def 15
    .= 1 by A1;
  end;
