| author | paulson | 
| Mon, 18 Dec 2000 12:21:54 +0100 | |
| changeset 10689 | 5c44de6aadf4 | 
| parent 5132 | 24f992a25adc | 
| permissions | -rw-r--r-- | 
| 4832 | 1 | (* Title: HOL/Lex/AutoProj.ML | 
| 2 | ID: $Id$ | |
| 3 | Author: Tobias Nipkow | |
| 4 | Copyright 1998 TUM | |
| 5 | *) | |
| 6 | ||
| 5069 | 7 | Goalw [start_def] "start(q,d,f) = q"; | 
| 5132 | 8 | by (Simp_tac 1); | 
| 4832 | 9 | qed "start_conv"; | 
| 10 | ||
| 5069 | 11 | Goalw [next_def] "next(q,d,f) = d"; | 
| 5132 | 12 | by (Simp_tac 1); | 
| 4832 | 13 | qed "next_conv"; | 
| 14 | ||
| 5069 | 15 | Goalw [fin_def] "fin(q,d,f) = f"; | 
| 5132 | 16 | by (Simp_tac 1); | 
| 4832 | 17 | qed "fin_conv"; | 
| 18 | ||
| 19 | Addsimps [start_conv,next_conv,fin_conv]; |