7357
|
1 |
structure Blast_Data =
|
20944
|
2 |
struct
|
|
3 |
type claset = Classical.claset
|
18524
|
4 |
val equality_name = "op ="
|
|
5 |
val not_name = "Not"
|
20944
|
6 |
val notE = HOL.notE
|
|
7 |
val ccontr = HOL.ccontr
|
7357
|
8 |
val contr_tac = Classical.contr_tac
|
20944
|
9 |
val dup_intr = Classical.dup_intr
|
7357
|
10 |
val hyp_subst_tac = Hypsubst.blast_hyp_subst_tac
|
|
11 |
val claset = Classical.claset
|
20944
|
12 |
val rep_cs = Classical.rep_cs
|
|
13 |
val cla_modifiers = Classical.cla_modifiers
|
7357
|
14 |
val cla_meth' = Classical.cla_meth'
|
20944
|
15 |
end;
|
7357
|
16 |
|
|
17 |
structure Blast = BlastFun(Blast_Data);
|