theorem Th64:
  Free (p => q) = Free p \/ Free q
proof
  thus Free (p => q) = Free (p '&' 'not' q) by Th60
    .= Free p \/ Free 'not' q by Th61
    .= Free p \/ Free q by Th60;
end;
