theorem Th4:
  ([.a,b".]|^ b)" = [.b",a.]|^ b
proof
  thus ([.a,b".]|^ b)" = [.a,b".]"|^ b by GROUP_3:26
                 .= [.b",a.]|^ b by GROUP_5:22;
end;
