diff options
author | mark <> | 2012-02-23 11:02:46 +0000 |
---|---|---|
committer | mark <> | 2012-02-23 11:02:46 +0000 |
commit | 403aa59a2c8095b98e62fde82f116433b540064b (patch) | |
tree | b7e5a197e1b62bcdaadb33b831dc6f078162ffac /hol-light | |
parent | 448583e76767da575c9d90f54266d434c86282ed (diff) |
*** empty log message ***
Diffstat (limited to 'hol-light')
-rw-r--r-- | hol-light/TacticRecording/graveyard.ml | 12 |
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);; |