Instance Inhabitant_val : Inhabitant val := Vundef.Instance Inhabitant_int: Inhabitant int := Int.zero.Instance Inhabitant_byte: Inhabitant byte := Byte.zero.Instance Inhabitant_int64: Inhabitant Int64.int := Int64.zero.Instance Inhabitant_ptrofs: Inhabitant Ptrofs.int := Ptrofs.zero.Instance Inhabitant_float : Inhabitant float := Float.zero.Instance Inhabitant_float32 : Inhabitant float32 := Float32.zero.Definition Vubyte (c: Byte.int) : val :=
  Vint (Int.repr (Byte.unsigned c)).Definition Vbyte (c: Byte.int) : val :=
  Vint (Int.repr (Byte.signed c)).

Lemma is_pointer_or_integer_dec v: {is_pointer_or_integer v} + {~ is_pointer_or_integer v}.