equal
deleted
inserted
replaced
1 (* Author: Lukas Bulwahn, TU Muenchen |
1 (* Title: HOL/Tools/Predicate_Compile/predicate_compile_aux.ML |
2 |
2 Author: Lukas Bulwahn, TU Muenchen |
3 Auxilary functions for predicate compiler |
3 |
|
4 Auxilary functions for predicate compiler. |
4 *) |
5 *) |
|
6 |
|
7 (* FIXME proper signature *) |
5 |
8 |
6 structure Predicate_Compile_Aux = |
9 structure Predicate_Compile_Aux = |
7 struct |
10 struct |
8 |
11 |
9 (* general syntactic functions *) |
12 (* general syntactic functions *) |
232 val intro''''' = map_term thy (maps_premises split_conj) intro'''' |
235 val intro''''' = map_term thy (maps_premises split_conj) intro'''' |
233 in |
236 in |
234 intro''''' |
237 intro''''' |
235 end |
238 end |
236 |
239 |
237 |
|
238 |
|
239 end; |
240 end; |