src/Tools/isac/Interpret/appl.sml
branchdecompose-isar
changeset 42023 927cb6806af1
parent 42018 11cf93cd02c6
child 42360 2c8de368c64c
     1.1 --- a/src/Tools/isac/Interpret/appl.sml	Sat May 21 09:54:39 2011 +0200
     1.2 +++ b/src/Tools/isac/Interpret/appl.sml	Sat May 21 12:52:59 2011 +0200
     1.3 @@ -356,7 +356,7 @@
     1.4    | applicable_in (p,p_) pt (Check_Postcond pI) =
     1.5        if member op = [Pbl,Met] p_                  
     1.6        then Notappl ((tac2str (Check_Postcond pI)) ^ " not for pos "^(pos'2str (p,p_)))
     1.7 -      else Appl (Check_Postcond' (pI, (e_term, [(*in solve assigned the returnvalue of scr*)])))
     1.8 +      else Appl (Check_Postcond' (pI, (e_term, [(*fun solve assignes the returnvalue of scr*)])))
     1.9  
    1.10    (*these are always applicable*)
    1.11    | applicable_in (p,p_) _ (Take str) = Appl (Take' (str2term str))