diff options
author | mark <> | 2012-02-16 17:09:21 +0000 |
---|---|---|
committer | mark <> | 2012-02-16 17:09:21 +0000 |
commit | af9234996fb53a4e7c0ec404d8dd275df17f1ccd (patch) | |
tree | f82922967f145b50480494b041178b82e36c5e1c /hol-light/TacticRecording/examples4.ml | |
parent | e4438b2984cadf3e60935cb1e37be55e63f063a0 (diff) |
First version of HOL Light tactic recording.
See INSTRUCTIONS and LIMITATIONS files for more details.
Currently works for flattening "packaged-up" tactic proofs into g/e commands.
Won't work for most proofs because most tactics/thms haven't been promoted.
Support for exporting proof graph as a series of goal pairs.
Support for displaying extra information to be intercepter by PG for Prooftree.
Diffstat (limited to 'hol-light/TacticRecording/examples4.ml')
-rw-r--r-- | hol-light/TacticRecording/examples4.ml | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/hol-light/TacticRecording/examples4.ml b/hol-light/TacticRecording/examples4.ml new file mode 100644 index 00000000..3178f656 --- /dev/null +++ b/hol-light/TacticRecording/examples4.ml @@ -0,0 +1,13 @@ +pg_mode_on ();; +get_pg_mode ();; + +g `(?x:num. p(x) /\ q(x) /\ r(x)) ==> (?x. r(x) /\ p(x)) /\ (?x. p(x) /\ (q(x) <=> r(x)))`;; +e (STRIP_TAC);; +e (STRIP_TAC);; +e (X_META_EXISTS_TAC `n1:num` THEN CONJ_TAC);; +e (FIRST_X_ASSUM(UNIFY_ACCEPT_TAC [`n1:num`]));; +e (ASM_REWRITE_TAC[]);; +e (X_META_EXISTS_TAC `n2:num` THEN CONJ_TAC);; +e (FIRST_X_ASSUM(UNIFY_ACCEPT_TAC [`n2:num`]));; +e (ASM_REWRITE_TAC[]);; +let th = top_thm ();; |