src/Tools/isac/Specify/i-model.sml
changeset 59995 c9af9de8cf35
parent 59994 c6546844dd26
child 59998 5dd825c9e2d5
     1.1 --- a/src/Tools/isac/Specify/i-model.sml	Mon May 18 14:12:01 2020 +0200
     1.2 +++ b/src/Tools/isac/Specify/i-model.sml	Mon May 18 14:21:41 2020 +0200
     1.3 @@ -402,7 +402,7 @@
     1.4  fun complete' pbt (i, v, f, d, ts) =
     1.5    (i, v, true, f, Cor ((d, ts), ((snd o snd o the o (find_first (eq1 d))) pbt, ts)))
     1.6      handle _ => (i, v, true, f, Cor ((d, ts), (d, ts)))
     1.7 -      (*dsc in oris, but not in pbl pat list: keep this dsc*)
     1.8 +      (*descriptor in O_Model, but not in Problem_Pattern.T, thus keep this descriptor*)
     1.9  
    1.10  (* filter out oris which have same description in itms *)
    1.11  fun filter_outs oris [] = oris