76 { case (Nil, a) => val (b, c) = pair(proof, term)(a); Appt(b, c) }, |
76 { case (Nil, a) => val (b, c) = pair(proof, term)(a); Appt(b, c) }, |
77 { case (Nil, a) => val (b, c) = pair(proof, proof)(a); AppP(b, c) }, |
77 { case (Nil, a) => val (b, c) = pair(proof, proof)(a); AppP(b, c) }, |
78 { case (Nil, a) => Hyp(term(a)) }, |
78 { case (Nil, a) => Hyp(term(a)) }, |
79 { case (List(a), b) => PAxm(a, list(typ)(b)) }, |
79 { case (List(a), b) => PAxm(a, list(typ)(b)) }, |
80 { case (List(a), b) => OfClass(typ(b), a) }, |
80 { case (List(a), b) => OfClass(typ(b), a) }, |
81 { case (List(a), b) => val (c, d) = pair(option(term), list(typ))(b); Oracle(a, c, d) }, |
81 { case (List(a), b) => val (c, d) = pair(term, list(typ))(b); Oracle(a, c, d) }, |
82 { case (List(a, b, c), d) => PThm(long_atom(a), b, c, list(typ)(d)) })) |
82 { case (List(a, b, c), d) => PThm(long_atom(a), b, c, list(typ)(d)) })) |
83 } |
83 } |
84 } |
84 } |