equal
deleted
inserted
replaced
1 (* Title: ZF/Induct/Tree_Forest.thy |
1 (* Title: ZF/Induct/Tree_Forest.thy |
2 Author: Lawrence C Paulson, Cambridge University Computer Laboratory |
2 Author: Lawrence C Paulson, Cambridge University Computer Laboratory |
3 Copyright 1994 University of Cambridge |
3 Copyright 1994 University of Cambridge |
4 *) |
4 *) |
5 |
5 |
6 header {* Trees and forests, a mutually recursive type definition *} |
6 section {* Trees and forests, a mutually recursive type definition *} |
7 |
7 |
8 theory Tree_Forest imports Main begin |
8 theory Tree_Forest imports Main begin |
9 |
9 |
10 subsection {* Datatype definition *} |
10 subsection {* Datatype definition *} |
11 |
11 |