Module hardware_alignof_facts: HARDWARE_ALIGNOF_FACTS.
End hardware_alignof_facts.
Export hardware_alignof_facts.
Hint Resolve alignof_two_p: align.
Hint Resolve align_chunk_two_p: align.
Hint Extern 10 (exists n: nat, hardware_alignof _ _ = two_power_nat n) => (eapply hardware_alignof_two_p; eassumption): align.
Hint Extern 10 (exists n: nat, hardware_alignof_composite _ _ = two_power_nat n) => (eapply hardware_alignof_composite_two_p; eassumption): align.

Lemma hardware_alignof_by_value: forall ha_env t ch,
access_mode t = By_value ch ->
hardware_alignof ha_env t = align_chunk ch.