src/ZF/ex/Ntree.thy
 changeset 1478 2b8c2a7547ab parent 1401 0c439768f45c child 6117 f9aad8ccd590
```     1.1 --- a/src/ZF/ex/Ntree.thy	Mon Feb 05 21:33:14 1996 +0100
1.2 +++ b/src/ZF/ex/Ntree.thy	Tue Feb 06 12:27:17 1996 +0100
1.3 @@ -1,6 +1,6 @@
1.4 -(*  Title: 	ZF/ex/Ntree.ML
1.5 +(*  Title:      ZF/ex/Ntree.ML
1.6      ID:         \$Id\$
1.7 -    Author: 	Lawrence C Paulson, Cambridge University Computer Laboratory
1.8 +    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
1.9      Copyright   1994  University of Cambridge
1.10
1.11  Datatype definition n-ary branching trees
1.12 @@ -17,18 +17,18 @@
1.13
1.14  datatype
1.15    "ntree(A)" = Branch ("a: A", "h: (UN n:nat. n -> ntree(A))")
1.16 -  monos	      "[[subset_refl, Pi_mono] MRS UN_mono]"	(*MUST have this form*)
1.17 +  monos       "[[subset_refl, Pi_mono] MRS UN_mono]"    (*MUST have this form*)
1.18    type_intrs  "[nat_fun_univ RS subsetD]"
1.19    type_elims  "[UN_E]"
1.20
1.21  datatype
1.22    "maptree(A)" = Sons ("a: A", "h: maptree(A) -||> maptree(A)")
1.23 -  monos	      "[FiniteFun_mono1]"	(*Use monotonicity in BOTH args*)
1.24 +  monos       "[FiniteFun_mono1]"       (*Use monotonicity in BOTH args*)
1.25    type_intrs  "[FiniteFun_univ1 RS subsetD]"
1.26
1.27  datatype
1.28    "maptree2(A,B)" = Sons2 ("a: A", "h: B -||> maptree2(A,B)")
1.29 -  monos	      "[subset_refl RS FiniteFun_mono]"
1.30 +  monos       "[subset_refl RS FiniteFun_mono]"
1.31    type_intrs  "[FiniteFun_in_univ']"
1.32
1.33  end
```