90 { case (Nil, a) => val (b, c) = pair(proof, proof)(a); AppP(b, c) }, |
90 { case (Nil, a) => val (b, c) = pair(proof, proof)(a); AppP(b, c) }, |
91 { case (Nil, a) => Hyp(term(a)) }, |
91 { case (Nil, a) => Hyp(term(a)) }, |
92 { case (List(a), b) => PAxm(a, list(typ)(b)) }, |
92 { case (List(a), b) => PAxm(a, list(typ)(b)) }, |
93 { case (List(a), b) => PClass(typ(b), a) }, |
93 { case (List(a), b) => PClass(typ(b), a) }, |
94 { case (List(a), b) => val (c, d) = pair(term, list(typ))(b); Oracle(a, c, d) }, |
94 { case (List(a), b) => val (c, d) = pair(term, list(typ))(b); Oracle(a, c, d) }, |
95 { case (List(a, b, c), d) => PThm(long_atom(a), b, c, list(typ)(d)) })) |
95 { case (List(a, b, c, d), e) => |
|
96 PThm(long_atom(a), b, Thm_Name(c, int_atom(d)), list(typ)(e)) |
|
97 })) |
96 proof |
98 proof |
97 } |
99 } |
98 |
100 |
99 val proof: T[Proof] = proof_env(Map.empty) |
101 val proof: T[Proof] = proof_env(Map.empty) |
100 } |
102 } |