src/HOL/UNITY/Follows.thy
author paulson
Fri Jun 02 17:46:16 2000 +0200 (2000-06-02)
changeset 9019 9c1118619d6c
parent 8948 b797cfa3548d
child 10265 4e004b548049
permissions -rw-r--r--
new parent MultisetOrder and new results about multiset unions
     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 add_path "../Induct";
     9 *)
    10 
    11 Follows = SubstAx + ListOrder + MultisetOrder +
    12 
    13 constdefs
    14 
    15   Follows :: "['a => 'b::{order}, 'a => 'b::{order}] => 'a program set"
    16                  (infixl "Fols" 65)
    17    "f Fols g == Increasing g Int Increasing f Int
    18                 Always {s. f s <= g s} Int
    19                 (INT k. {s. k <= g s} LeadsTo {s. k <= f s})"
    20 
    21 
    22 end