Fixpoint ge_bool (n m  : nat) : bool :=
 match n with
   | O   => match m with
            |  O => true
            | S _ => false
          end
   | S n  => match m with
               | O => true
               | S m => ge_bool n m
             end
   end.

(* Specifications: *)
Lemma ge_bool_cases : forall n m, (if ge_bool n m then n >= m else n < m)%nat.