src/CTT/rew.ML
changeset 1459 d12da312eff4
parent 0 a5a9c433f639
child 17496 26535df536ae
     1.1 --- a/src/CTT/rew.ML	Mon Jan 29 13:56:41 1996 +0100
     1.2 +++ b/src/CTT/rew.ML	Mon Jan 29 13:58:15 1996 +0100
     1.3 @@ -1,6 +1,6 @@
     1.4 -(*  Title: 	CTT/rew
     1.5 +(*  Title:      CTT/rew
     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   1991  University of Cambridge
    1.10  
    1.11  Simplifier for CTT, using Typedsimp
    1.12 @@ -17,14 +17,14 @@
    1.13  
    1.14  structure TSimp_data: TSIMP_DATA =
    1.15    struct
    1.16 -  val refl		= refl_elem
    1.17 -  val sym		= sym_elem
    1.18 -  val trans		= trans_elem
    1.19 -  val refl_red		= refl_red
    1.20 -  val trans_red		= trans_red
    1.21 -  val red_if_equal	= red_if_equal
    1.22 -  val default_rls 	= comp_rls
    1.23 -  val routine_tac 	= routine_tac routine_rls
    1.24 +  val refl              = refl_elem
    1.25 +  val sym               = sym_elem
    1.26 +  val trans             = trans_elem
    1.27 +  val refl_red          = refl_red
    1.28 +  val trans_red         = trans_red
    1.29 +  val red_if_equal      = red_if_equal
    1.30 +  val default_rls       = comp_rls
    1.31 +  val routine_tac       = routine_tac routine_rls
    1.32    end;
    1.33  
    1.34  structure TSimp = TSimpFun (TSimp_data);