src/HOL/Quot/FRACT.thy
changeset 2906 171dedbc9bdb
child 2910 905aa895136c
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/HOL/Quot/FRACT.thy	Fri Apr 04 16:03:11 1997 +0200
     1.3 @@ -0,0 +1,23 @@
     1.4 +(*  Title:      HOL/Quot/FRACT.thy
     1.5 +    ID:         $Id$
     1.6 +    Author:     Oscar Slotosch
     1.7 +    Copyright   1997 Technische Universitaet Muenchen
     1.8 +
     1.9 +Example for higher order quotients: fractionals
    1.10 +*)
    1.11 +
    1.12 +FRACT = NPAIR + HQUOT +
    1.13 +instance 
    1.14 +	NP::per	
    1.15 +	{| (etac per_sym_NP 1) THEN (etac per_trans_NP 1) THEN (atac 1) |}
    1.16 +
    1.17 +(* now define fractions *)
    1.18 +
    1.19 +types fract = NP quot
    1.20 +
    1.21 +(* example for fractions *)
    1.22 +consts 
    1.23 +	half ::	"fract"
    1.24 +
    1.25 +defs    half_def    "half == <[abs_NP(1,2)]>"
    1.26 +end
    1.27 \ No newline at end of file