Mltt公司

模块MLTT。组合器，其中打开导入MLTT。套--------------------------------------------------------------------------p 35-37上的组合器I、K、Sid：｛A:Set｝->A->Aid=\x->xK:{A:Set}->{B:A->Set}->（x:A）->Bx->AK=\ x y->xS:{A:Set}->{B:A->Set}->{C:（x:A）->Bx->Set}->（克：（x:A）->（y:Bx）->C x y）->（f：（x:A）->B x）->（x:A）->C x（f x）S=\g f x->g x（f x）--在Bibliopolis中，&#931；的E消除规则；关于p48-49，从--预测。这里我们做相反的事。（请注意，Agda无法推断--所有隐式参数。）p:{A:Set}->{B:A->Set}->&#931；A B->Ap{A=A}=\c->E{A=A}{c=\z->A}（\xy->x）cq:{A:Set}->{B:A->Set}->（c:&#931；AB）->B（pc）q{B=B}=\c->E{B=B}{c=\z->B（pz）}（\xy->y）c--《圣经》第50-52页证明了选择公理。ac:{A:Set}->{B:A->Set}->{C:（x:A）->Bx->Set}->（（x:A）->&#931；（B x）（y->C x y））-> Σ （（x:A）->B x）（\f->（x:A）->C x（f x））ac=\g->（（\x->p（gx）），\x->q（gx