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