author | paulson |
Tue, 11 Oct 2005 15:03:36 +0200 | |
changeset 17828 | c82fb51ee18d |
parent 16774 | 515b6020cf5d |
child 18171 | c4f873d65603 |
permissions | -rw-r--r-- |
7355 | 1 |
|
2 |
(*** Applying BlastFun to create Blast_tac ***) |
|
3 |
structure Blast_Data = |
|
4 |
struct |
|
5 |
type claset = Cla.claset |
|
16774
515b6020cf5d
experimental code to reduce the amount of type information in blast
paulson
parents:
11748
diff
changeset
|
6 |
val is_hol = false |
7355 | 7 |
val notE = notE |
8 |
val ccontr = ccontr |
|
9 |
val contr_tac = Cla.contr_tac |
|
10 |
val dup_intr = Cla.dup_intr |
|
11 |
val hyp_subst_tac = Hypsubst.blast_hyp_subst_tac |
|
12 |
val claset = Cla.claset |
|
13 |
val rep_cs = Cla.rep_cs |
|
14 |
val cla_modifiers = Cla.cla_modifiers; |
|
15 |
val cla_meth' = Cla.cla_meth' |
|
16 |
end; |
|
17 |
||
18 |
structure Blast = BlastFun(Blast_Data); |
|
19 |
||
20 |
val Blast_tac = Blast.Blast_tac |
|
21 |
and blast_tac = Blast.blast_tac; |