author | paulson |
Fri, 13 Nov 1998 13:41:53 +0100 | |
changeset 5858 | beddc19c107a |
parent 5069 | 3ea049f7979d |
child 6162 | 484adda70b65 |
permissions | -rw-r--r-- |
(* Title: HOL/Quot/FRACT.ML ID: $Id$ Author: Oscar Slotosch Copyright 1997 Technische Universitaet Muenchen *) 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))"; br refl 1; qed "inst_NP_per"; Goalw [half_def] "half = <[abs_NP(n,2*n)]>"; br per_class_eqI 1; by (simp_tac (simpset() addsimps [inst_NP_per]) 1); qed "test";