theorem
  for B, R, R1, R2 holds R1 \/ R2 is (B,R)-derivable
      iff R1 is (B,R)-derivable & R2 is (B,R)-derivable
proof
  let B, R, R1, R2;
  thus R1 \/ R2 is (B,R)-derivable
      implies R1 is (B,R)-derivable & R2 is (B,R)-derivable
  proof
    assume A1: R1 \/ R2 is (B,R)-derivable;
    thus R1 is (B,R)-derivable
      proof
      let S, t;
      assume [S, t] in R1;
      then [S, t] in R1 \/ R2 by XBOOLE_0:def 3;
      hence thesis by A1;
      end;
    let S, t;
    assume [S, t] in R2;
    then [S, t] in R1 \/ R2 by XBOOLE_0:def 3;
    hence thesis by A1;
    end;
  assume that
    A10: R1 is (B,R)-derivable and
    A11: R2 is (B,R)-derivable;
  let S, t;
  assume [S, t] in R1 \/ R2;
  then per cases by XBOOLE_0:def 3;
    suppose [S, t] in R1;
    hence thesis by A10;
    end;
    suppose [S, t] in R2;
    hence thesis by A11;
  end;
end;
