(*
Lemma Archi_ptr64_DEPENDENCY: Archi.ptr64=false.
Proof. reflexivity. Qed.
*)

Definition sem_add_ptr_ptrofs t si :=
 if Archi.ptr64 then sem_add_ptr_long t else sem_add_ptr_int t si.

Lemma union_op_facts: forall Delta t_root e gfs efs tts i a i0 t rho, legal_nested_efield_rec t_root gfs tts = true -> type_almost_match e t_root (LR_of_type t_root) = true -> in_members i0 (co_members (get_co i)) -> nested_field_type t_root gfs = Tunion i a -> efield_denote efs gfs rho -> tc_lvalue Delta (nested_efield e efs tts) rho = tc_lvalue Delta (nested_efield e (eUnionField i0 :: efs) (t :: tts)) rho /\ eval_field (typeof (nested_efield e efs tts)) i0 = offset_val 0.