理论λ进口纯开始设置Pure_Thy.old_appl_syntax_setuptypedecl“术语”引理[trans]:假设st:“s==t”显示“PROP P(t)==>PROP P”由(展开st)引理[trans]:假设ps:“PROP P(s)”假设st:“s==t”显示“PROP P(t)”通过使用ps(展开st)现场红色=修复abs::“[term\术语]\术语“(活页夹“lam”10)修复“apply”::“[term,term]\术语“(中缀“^”20)修复了K::“术语”修复了I::“术语”修复了S::“术语”修复了B::“术语”修复了YC::“term”修复了YT::“term”修复了Red::“[term,term]\道具“(”(_>-->_)“)假设K_def:“K\λx(λy.x)”假设I_def:“我\λx.x“假设S_def:“S\lam x.(lam y.(lam z.x^z^(y^z))“假设B_def:“B\S^(K^S)^K“假设YC_def:“YC\λf.((λx.f^(x^x))假设YT_def:“YT\(lam z.lam x.x^(z^z^x))^(lam z.lam x.x(z^z))“假设beta:“(lam x.f(x))^a>-->f(a)”假设ref:“M>-->M”假设trans[trans]:“\M>-->N;N>-->L\\M>-->L“假设近似值:“M>-->N\M^Z>-->N^Z“假设适用:“M>-->N\Z^M>-->Z^N“假设epsi:“\!! x.P(x)>-->Q(x)\\(λx.P(x))>-->(λx Q(x)开始符号(输出)“abs”(活页夹)\" 10)结束现场CONV=红色+修复了Conv::“[term,term]\道具“(”(_>=<_)“)假设β:“(lam x.f(x))^a>=<f(a)”假设ref:“M>=<M”假设symm[sym]:“M>=<N\N>=<M“假设trans[trans]:“\M>=<N;N>=<L\\M>=<L“假设近似值:“M>=<N\M^Z>=<N^Z“假设适用:“M>=<N\Z^M>=<Z^N“假设epsi:“\!! x.P(x)>=<Q(x)\\拉姆x.P(x)>=<拉姆x.Q(x)“开始引理beta_red=red.beta[OF red_axioms]和appr_red=red.appr[OF red_axioms]和appl_red=红色.appl[红色_轴]和epsi_red=red.epsi[OF red_axioms]和trans_red=red.trans[OF red_axioms]和refl_red=红色.ref[OF red_axioms]结束结束