# Theory FOCUS

Up to index of Isabelle/HOLCF/FOCUS

theory FOCUS
imports Fstream
uses [FOCUS.ML]
begin

    (*  Title:      HOLCF/FOCUS/FOCUS.thy
        ID:         $Id: FOCUS.thy,v 1.4 2005/09/06 19:51:17 wenzelm Exp $
        Author:     David von Oheimb, TU Muenchen
    *)

    header {* Top level of FOCUS *}

    theory FOCUS
    imports Fstream
    begin

    end

theorem fstream_exhaust_slen_eq:

      (#x ≠ 0) = (∃a y. x = a~>y)