src/HOL/Quot/NPAIR.ML
changeset 2906 171dedbc9bdb
child 3457 a8ab7c64817c
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/HOL/Quot/NPAIR.ML	Fri Apr 04 16:03:11 1997 +0200
     1.3 @@ -0,0 +1,19 @@
     1.4 +(*  Title:      HOL/Quot/NPAIR.ML
     1.5 +    ID:         $Id$
     1.6 +    Author:     Oscar Slotosch
     1.7 +    Copyright   1997 Technische Universitaet Muenchen
     1.8 +
     1.9 +*)
    1.10 +open NPAIR;
    1.11 +
    1.12 +goalw thy [rep_NP_def] "rep_NP(abs_NP np) = np";
    1.13 +auto();
    1.14 +qed "rep_abs_NP";
    1.15 +
    1.16 +Addsimps [rep_abs_NP];
    1.17 +
    1.18 +val prems = goalw thy [per_NP_def] "eqv (x::NP) y ==> eqv y x";
    1.19 +by (cut_facts_tac prems 1);
    1.20 +auto();
    1.21 +qed "per_sym_NP";
    1.22 +