(* Equality proofs for all constants from the Compcert Int, Int64, Ptrofs modules: *)

(* Specifications: *)
Lemma typed_false_ptr:
forall {t a v},  typed_false (Tpointer t a) v -> v=nullval.
Lemma typed_true_ptr:
forall {t a v},  typed_true (Tpointer t a) v -> isptr v.
Lemma int_cmp_repr':
forall op i j, repable_signed i -> repable_signed j ->
Int.cmp op (Int.repr i) (Int.repr j) = false ->
Zcmp (negate_comparison op) i j.
Lemma typed_false_of_bool:
forall x, typed_false tint (Val.of_bool x) -> (x=false).
Lemma typed_true_of_bool:
forall x, typed_true tint (Val.of_bool x) -> (x=true).
Lemma typed_false_tint:
Archi.ptr64=false ->
forall v, typed_false tint v -> v=nullval.
Lemma typed_false_tlong:
Archi.ptr64=true ->
forall v, typed_false tlong v -> v=nullval.
Lemma typed_true_e:
forall t v, typed_true t v -> v<>nullval.
Lemma typed_false_tint_Vint:
forall v, typed_false tint (Vint v) -> v = Int.zero.
Lemma typed_true_tint_Vint:
forall v, typed_true tint (Vint v) -> v <> Int.zero.
Lemma typed_true_tlong_Vlong:
forall v, typed_true tlong (Vlong v) -> v <> Int64.zero.