Section Sound_Rules.
Load "PTS_spec".
Section Beta_Reduction_Sound.
Hypothesis inv_prod : product_inversion le_type.
Let le_type_prod_l := inv_prod_l le_type inv_prod.
Let le_type_prod_r := inv_prod_r le_type inv_prod.

Theorem beta_sound : rule_sound the_PTS beta.
End Beta_Reduction_Sound.