author | paulson |
Fri, 13 Nov 1998 13:41:53 +0100 | |
changeset 5858 | beddc19c107a |
parent 5069 | 3ea049f7979d |
permissions | -rw-r--r-- |
2906 | 1 |
(* Title: HOL/Quot/NPAIR.ML |
2 |
ID: $Id$ |
|
3 |
Author: Oscar Slotosch |
|
4 |
Copyright 1997 Technische Universitaet Muenchen |
|
5 |
||
6 |
*) |
|
7 |
open NPAIR; |
|
8 |
||
5069 | 9 |
Goalw [rep_NP_def] "rep_NP(abs_NP np) = np"; |
4477
b3e5857d8d99
New Auto_tac (by Oheimb), and new syntax (without parens), and expandshort
paulson
parents:
3457
diff
changeset
|
10 |
by Auto_tac; |
2906 | 11 |
qed "rep_abs_NP"; |
12 |
||
13 |
Addsimps [rep_abs_NP]; |
|
14 |
||
5858 | 15 |
Goalw [per_NP_def] "eqv (x::NP) y ==> eqv y x"; |
4477
b3e5857d8d99
New Auto_tac (by Oheimb), and new syntax (without parens), and expandshort
paulson
parents:
3457
diff
changeset
|
16 |
by Auto_tac; |
2906 | 17 |
qed "per_sym_NP"; |
18 |