(* This file was originally generated by why.
   It can be modified; only the generated parts will be overwritten. *)

Require Why.

(* Why obligation from file "good/see.mlw", characters 138-140 *)
Lemma f_po_1 : 
  (b: Z)
  (b0: Z)
  (Post1: b0 = `1 - b`)
  `b0 = b0` /\ `b0 = 1 - b`.
Proof.
Intuition.
Save.


(* Why obligation from file "good/see.mlw", characters 230-242 *)
Lemma k_po_1 : 
  (b0: Z)
  (Post1: b0 = `1`)
  (b3: Z)
  (aux_4: Z)
  (Post2: `aux_4 = b3` /\ `b3 = 1 - b0`)
  (b4: Z)
  (aux_2: Z)
  (Post4: `aux_2 = b4` /\ `b4 = 1 - b3`)
  ((result:Z)
   ((b:Z)
    (`result = b` /\ `b = 1 - b4` ->
     ((result0:Z)
      ((b0:Z)
       (`result0 = b0` /\ `b0 = 1 - b` -> `1 - aux_2 + aux_4 = 0` /\
        `result0 * (1 - result) = 1`)))))).
Proof.
Intuition.
Subst; Ring.
Save.

