diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2012-02-08 14:18:27 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2012-02-08 14:18:27 +0000 |
commit | 7cc95a00fda26cbd6694075dca74b16c6c54f016 (patch) | |
tree | 89c5a0c31fdc0f0a6a782ac6111c45ed8d7dd89d /etc | |
parent | dd4f35414db5bc70736b39529a92a5035009f7eb (diff) |
Test examples for HOL Light
Diffstat (limited to 'etc')
-rw-r--r-- | etc/hol-light/example4.ml | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/etc/hol-light/example4.ml b/etc/hol-light/example4.ml new file mode 100644 index 00000000..3178f656 --- /dev/null +++ b/etc/hol-light/example4.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 ();; |