1.1 --- a/src/Tools/isac/MathEngBasic/state-steps.sml	Wed Aug 03 18:17:27 2022 +0200
     1.2 +++ b/src/Tools/isac/MathEngBasic/state-steps.sml	Thu Aug 04 12:48:37 2022 +0200
     1.3 @@ -12,7 +12,7 @@
     1.4    type T
     1.5    val to_string : T -> string
     1.6    val result : single -> (term * term list)
     1.7 -  val make_single: Rewrite_Ord.rew_ord' * 'a -> Rule_Set.T -> term * Rule.rule * (term * term list) ->
     1.8 +  val make_single: Rewrite_Ord.id * 'a -> Rule_Set.T -> term * Rule.rule * (term * term list) ->
     1.9      single
    1.10    val insert_pos : Pos.pos -> T -> T
    1.11  end