理论λ进口纯开始设置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]结束结束