Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use pair_tac;
authorwenzelm
Sun, 16 Jul 2000 20:56:14 +0200
changeset 9366 a83f3abbfc93
parent 9365 0cced1b20d68
child 9367 df7a4824111e
use pair_tac;
src/HOL/Integ/IntDef.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Integ/IntDef.ML	Sun Jul 16 20:55:56 2000 +0200
+++ b/src/HOL/Integ/IntDef.ML	Sun Jul 16 20:56:14 2000 +0200
@@ -52,7 +52,9 @@
 qed "intrel_iff";
 
 Goal "(x,x): intrel";
-by (stac surjective_pairing 1 THEN rtac (refl RS intrelI) 1);
+by (pair_tac "x" 1);
+by (rtac intrelI 1);
+by (rtac refl 1);
 qed "intrel_refl";
 
 Goalw [equiv_def, refl_def, sym_def, trans_def]
isabelle