author | berghofe |
Fri, 23 Oct 1998 22:36:15 +0200 | |
changeset 5760 | 7e2cf2820684 |
parent 5069 | 3ea049f7979d |
child 5858 | beddc19c107a |
permissions | -rw-r--r-- |
(* Title: HOL/Quot/FRACT.ML ID: $Id$ Author: Oscar Slotosch Copyright 1997 Technische Universitaet Muenchen *) open FRACT; Goalw [per_def,per_NP_def] "(op ===)=(%x y. fst(rep_NP x)*snd(rep_NP y)=fst(rep_NP y)*snd(rep_NP x))"; fr refl; qed "inst_NP_per"; Goalw [half_def] "half = <[abs_NP(n,2*n)]>"; fr per_class_eqI; by (simp_tac (simpset() addsimps [inst_NP_per]) 1); qed "test";