src/FOLP/IFOLP.thy
changeset 29269 5c25a2012975
parent 27152 192954a9a549
child 29305 76af2a3c9d28
     1.1 --- a/src/FOLP/IFOLP.thy	Wed Dec 31 00:08:14 2008 +0100
     1.2 +++ b/src/FOLP/IFOLP.thy	Wed Dec 31 15:30:10 2008 +0100
     1.3 @@ -1,5 +1,4 @@
     1.4  (*  Title:      FOLP/IFOLP.thy
     1.5 -    ID:         $Id$
     1.6      Author:     Martin D Coen, Cambridge University Computer Laboratory
     1.7      Copyright   1992  University of Cambridge
     1.8  *)
     1.9 @@ -247,7 +246,7 @@
    1.10            and concl = discard_proof (Logic.strip_assums_concl prem)
    1.11        in
    1.12            if exists (fn hyp => hyp aconv concl) hyps
    1.13 -          then case distinct (op =) (filter (fn hyp => could_unify (hyp, concl)) hyps) of
    1.14 +          then case distinct (op =) (filter (fn hyp => Term.could_unify (hyp, concl)) hyps) of
    1.15                     [_] => assume_tac i
    1.16                   |  _  => no_tac
    1.17            else no_tac