diff options
| -rwxr-xr-x | theories/Lists/Streams.v | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/theories/Lists/Streams.v b/theories/Lists/Streams.v index 35d67e5681..9bbbe0e46c 100755 --- a/theories/Lists/Streams.v +++ b/theories/Lists/Streams.v @@ -10,7 +10,9 @@ Set Implicit Arguments. -Section Streams. (* The set of streams : definition *) +(** Streams *) + +Section Streams. Variable A : Set. @@ -125,9 +127,9 @@ Section Stream_Properties. Variable P : Stream->Prop. (*i -Inductive Exists : Stream -> Prop := - Here : (x:Stream)(P x) ->(Exists x) | - Further : (x:Stream)~(P x)->(Exists (tl x))->(Exists x). +Inductive Exists : Stream -> Prop := + | Here : forall x:Stream, P x -> Exists x + | Further : forall x:Stream, ~ P x -> Exists (tl x) -> Exists x. i*) Inductive Exists : Stream -> Prop := |