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
paulson@6706
     1
(*  Title:      HOL/UNITY/Follows
paulson@6706
     2
    ID:         $Id$
paulson@6706
     3
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
paulson@6706
     4
    Copyright   1998  University of Cambridge
paulson@6706
     5
paulson@8128
     6
The "Follows" relation of Charpentier and Sivilotte
paulson@9019
     7
paulson@9019
     8
add_path "../Induct";
paulson@6706
     9
*)
paulson@6706
    10
paulson@9019
    11
Follows = SubstAx + ListOrder + MultisetOrder +
paulson@6706
    12
paulson@6706
    13
constdefs
paulson@6706
    14
paulson@6706
    15
  Follows :: "['a => 'b::{order}, 'a => 'b::{order}] => 'a program set"
paulson@6809
    16
                 (infixl "Fols" 65)
paulson@6809
    17
   "f Fols g == Increasing g Int Increasing f Int
paulson@6809
    18
                Always {s. f s <= g s} Int
paulson@6809
    19
                (INT k. {s. k <= g s} LeadsTo {s. k <= f s})"
paulson@6706
    20
paulson@6706
    21
paulson@6706
    22
end