aboutsummaryrefslogtreecommitdiffhomepage
path: root/hol-light
diff options
context:
space:
mode:
authorGravatar mark <>2012-02-23 11:02:46 +0000
committerGravatar mark <>2012-02-23 11:02:46 +0000
commit403aa59a2c8095b98e62fde82f116433b540064b (patch)
treeb7e5a197e1b62bcdaadb33b831dc6f078162ffac /hol-light
parent448583e76767da575c9d90f54266d434c86282ed (diff)
*** empty log message ***
Diffstat (limited to 'hol-light')
-rw-r--r--hol-light/TacticRecording/graveyard.ml12
1 files changed, 0 insertions, 12 deletions
diff --git a/hol-light/TacticRecording/graveyard.ml b/hol-light/TacticRecording/graveyard.ml
deleted file mode 100644
index db5c733d..00000000
--- a/hol-light/TacticRecording/graveyard.ml
+++ /dev/null
@@ -1,12 +0,0 @@
-
-
-(* Utility for applying tactic and incorproating results into goal tree. *)
-(* Takes an "infotactic", i.e. like a normal tactic that works on 'goal' and *)
-(* returns 'goalstate', but that also returns 'finfo' which summarises the *)
-(* operation. These are easily formed by tagging normal tactics. *)
-
-let infotactic_wrap0 (infotac:goal->(goalstate*finfo)) (gx:xgoal) : xgoalstate =
- let (g,id) = dest_xgoal gx in
- let ((meta,gs,just),gst) = infotac g in
- let gxs = extend_gtree id gst gs in
- (meta,gxs,just);;