1.1 --- a/src/Tools/isac/Specify/i-model.sml	Wed Jun 22 17:33:45 2022 +0200
     1.2 +++ b/src/Tools/isac/Specify/i-model.sml	Wed Jun 22 19:26:18 2022 +0200
     1.3 @@ -401,7 +401,7 @@
     1.4      val mits = complete oris pits [] mpc
     1.5    in (pits, mits) end
     1.6  
     1.7 -(* WN0312: use in nxt_spec, too ? what about variants ??? *)
     1.8 +(* TODO: also check if all elements are I_Model.Cor *)
     1.9  fun is_complete ([]: T) = false
    1.10    | is_complete itms = foldl and_ (true, (map #3 itms))
    1.11