From 538f7ad4feabf9eafe00788ef3a2b65a379d3ee1 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Mon, 6 Aug 2012 14:47:25 +0000
Subject: Remove Val.is_true and Val.is_false, no longer used. Simplified
 definition of Val.bool_of_val.

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2015 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 common/Values.v | 129 +++++++++++++++++++++++++++-----------------------------
 1 file changed, 62 insertions(+), 67 deletions(-)

(limited to 'common/Values.v')

diff --git a/common/Values.v b/common/Values.v
index bcb7c4f..9f73e33 100644
--- a/common/Values.v
+++ b/common/Values.v
@@ -74,27 +74,14 @@ Fixpoint has_type_list (vl: list val) (tl: list typ) {struct vl} : Prop :=
   The integer 0 (also used to represent the null pointer) is [False].
   [Vundef] and floats are neither true nor false. *)
 
-Definition is_true (v: val) : Prop :=
-  match v with
-  | Vint n => n <> Int.zero
-  | Vptr b ofs => True
-  | _ => False
-  end.
-
-Definition is_false (v: val) : Prop :=
-  match v with
-  | Vint n => n = Int.zero
-  | _ => False
-  end.
-
 Inductive bool_of_val: val -> bool -> Prop :=
-  | bool_of_val_int_true:
-      forall n, n <> Int.zero -> bool_of_val (Vint n) true
-  | bool_of_val_int_false:
-      bool_of_val (Vint Int.zero) false
+  | bool_of_val_int:
+      forall n, bool_of_val (Vint n) (negb (Int.eq n Int.zero))
   | bool_of_val_ptr:
       forall b ofs, bool_of_val (Vptr b ofs) true.
 
+(** Arithmetic operations *)
+
 Definition neg (v: val) : val :=
   match v with
   | Vint n => Vint (Int.neg n)
@@ -357,6 +344,8 @@ Definition divf (v1 v2: val): val :=
   | _, _ => Vundef
   end.
 
+(** Comparisons *)
+
 Section COMPARISONS.
 
 Variable valid_ptr: block -> Z -> bool.
@@ -449,60 +438,18 @@ Proof.
   change 65535 with (two_p 16 - 1). apply Int.zero_ext_and. vm_compute; auto.
 Qed.
 
-Theorem istrue_not_isfalse:
-  forall v, is_false v -> is_true (notbool v).
-Proof.
-  destruct v; simpl; try contradiction.
-  intros. subst i. simpl. discriminate.
-Qed.
-
-Theorem isfalse_not_istrue:
-  forall v, is_true v -> is_false (notbool v).
-Proof.
-  destruct v; simpl; try contradiction.
-  intros. generalize (Int.eq_spec i Int.zero).
-  case (Int.eq i Int.zero); intro.
-  contradiction. simpl. auto.
-  auto.
-Qed.
-
-Theorem bool_of_true_val:
-  forall v, is_true v -> bool_of_val v true.
-Proof.
-  intro. destruct v; simpl; intros; try contradiction.
-  constructor; auto. constructor.
-Qed.
-
-Theorem bool_of_true_val2:
-  forall v, bool_of_val v true -> is_true v.
-Proof.
-  intros. inversion H; simpl; auto.
-Qed.
-
-Theorem bool_of_true_val_inv:
-  forall v b, is_true v -> bool_of_val v b -> b = true.
-Proof.
-  intros. inversion H0; subst v b; simpl in H; auto. 
-Qed.
-
-Theorem bool_of_false_val:
-  forall v, is_false v -> bool_of_val v false.
-Proof.
-  intro. destruct v; simpl; intros; try contradiction.
-  subst i;  constructor.
-Qed.
-
-Theorem bool_of_false_val2:
-  forall v, bool_of_val v false -> is_false v.
+Theorem bool_of_val_of_bool:
+  forall b1 b2, bool_of_val (of_bool b1) b2 -> b1 = b2.
 Proof.
-  intros. inversion H; simpl; auto.
+  intros. destruct b1; simpl in H; inv H; auto.
 Qed.
 
-Theorem bool_of_false_val_inv:
-  forall v b, is_false v -> bool_of_val v b -> b = false.
+Theorem bool_of_val_of_optbool:
+  forall ob b, bool_of_val (of_optbool ob) b -> ob = Some b.
 Proof.
-  intros. inversion H0; subst v b; simpl in H.
-  congruence. auto. contradiction.
+  intros. destruct ob; simpl in H. 
+  destruct b0; simpl in H; inv H; auto.
+  inv H.
 Qed.
 
 Theorem notbool_negb_1:
@@ -932,6 +879,54 @@ Proof.
   destruct (Float.cmp Cgt f f0); destruct (Float.cmp Ceq f f0); auto.
 Qed.
 
+Theorem cmp_ne_0_optbool:
+  forall ob, cmp Cne (of_optbool ob) (Vint Int.zero) = of_optbool ob.
+Proof.
+  intros. destruct ob; simpl; auto. destruct b; auto. 
+Qed.
+
+Theorem cmp_eq_1_optbool:
+  forall ob, cmp Ceq (of_optbool ob) (Vint Int.one) = of_optbool ob.
+Proof.
+  intros. destruct ob; simpl; auto. destruct b; auto. 
+Qed.
+
+Theorem cmp_eq_0_optbool:
+  forall ob, cmp Ceq (of_optbool ob) (Vint Int.zero) = of_optbool (option_map negb ob).
+Proof.
+  intros. destruct ob; simpl; auto. destruct b; auto. 
+Qed.
+
+Theorem cmp_ne_1_optbool:
+  forall ob, cmp Cne (of_optbool ob) (Vint Int.one) = of_optbool (option_map negb ob).
+Proof.
+  intros. destruct ob; simpl; auto. destruct b; auto. 
+Qed.
+
+Theorem cmpu_ne_0_optbool:
+  forall valid_ptr ob, cmpu valid_ptr Cne (of_optbool ob) (Vint Int.zero) = of_optbool ob.
+Proof.
+  intros. destruct ob; simpl; auto. destruct b; auto. 
+Qed.
+
+Theorem cmpu_eq_1_optbool:
+  forall valid_ptr ob, cmpu valid_ptr Ceq (of_optbool ob) (Vint Int.one) = of_optbool ob.
+Proof.
+  intros. destruct ob; simpl; auto. destruct b; auto. 
+Qed.
+
+Theorem cmpu_eq_0_optbool:
+  forall valid_ptr ob, cmpu valid_ptr Ceq (of_optbool ob) (Vint Int.zero) = of_optbool (option_map negb ob).
+Proof.
+  intros. destruct ob; simpl; auto. destruct b; auto. 
+Qed.
+
+Theorem cmpu_ne_1_optbool:
+  forall valid_ptr ob, cmpu valid_ptr Cne (of_optbool ob) (Vint Int.one) = of_optbool (option_map negb ob).
+Proof.
+  intros. destruct ob; simpl; auto. destruct b; auto. 
+Qed.
+
 Lemma zero_ext_and:
   forall n v, 
   0 < n < Z_of_nat Int.wordsize ->
-- 
cgit v1.2.3