c_0_0
transi72828568clp_dB @ beta @ ( subst @ r @ t @ i ) @ ( subst @ r @ t @ i )
Proof
theorem subst_preserves_beta': "r →β* s ⟹ r[t/i] →β* s[t/i]"
theorem subst_preserves_beta': "r →β* s ⟹ r[t/i] →β* s[t/i]"
proof (induct set: rtranclp)
case base
then show ?case
by (iprover intro: rtrancl_refl)transi72828568clp_dB @ beta @ ( subst @ r @ t @ i ) @ ( subst @ r @ t @ i )