src/HOL/UNITY/Follows.thy
changeset 6706 d8067e272d4f
child 6809 5b8912f7bb69
equal deleted inserted replaced
6705:b2662096ccd0 6706:d8067e272d4f
       
     1 (*  Title:      HOL/UNITY/Follows
       
     2     ID:         $Id$
       
     3     Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
       
     4     Copyright   1998  University of Cambridge
       
     5 
       
     6 The Follows relation of Charpentier and Sivilotte
       
     7 *)
       
     8 
       
     9 Follows = Union +
       
    10 
       
    11 constdefs
       
    12 
       
    13   Follows :: "['a => 'b::{order}, 'a => 'b::{order}] => 'a program set"
       
    14                  (infixl 65)
       
    15    "f Follows g == Increasing g Int Increasing f Int
       
    16                    Always {s. f s <= g s} Int
       
    17                    (INT k. {s. k <= g s} LeadsTo {s. k <= f s})"
       
    18 
       
    19 
       
    20 end