(* *********************************************************************)
(*                                                                     *)
(*              The Compcert verified compiler                         *)
(*                                                                     *)
(*          Xavier Leroy, INRIA Paris-Rocquencourt                     *)
(*                                                                     *)
(*  Copyright Institut National de Recherche en Informatique et en     *)
(*  Automatique.  All rights reserved.  This file is distributed       *)
(*  under the terms of the GNU General Public License as published by  *)
(*  the Free Software Foundation, either version 2 of the License, or  *)
(*  (at your option) any later version.  This file is also distributed *)
(*  under the terms of the INRIA Non-Commercial License Agreement.     *)
(*                                                                     *)
(* *********************************************************************)
(** Whole-program behaviors *)
Set Implicit Arguments.
(** * Behaviors for program executions *)
(** The four possible outcomes for the execution of a program: - Termination, with a finite trace of observable events and an integer value that stands for the process exit code (the return value of the main function). - Divergence with a finite trace of observable events. (At some point, the program runs forever without doing any I/O.) - Reactive divergence with an infinite trace of observable events. (The program performs infinitely many I/O operations separated by finite amounts of internal computations.) - Going wrong, with a finite trace of observable events performed before the program gets stuck. *)
Inductive program_behavior: Type :=
| Terminates: trace -> int -> program_behavior
| Diverges: trace -> program_behavior
| Reacts: traceinf -> program_behavior
| Goes_wrong: trace -> program_behavior.
(** Operations and relations on behaviors *)
Definition not_wrong (beh: program_behavior) : Prop :=
match beh with
| Terminates _ _ => True
| Diverges _ => True
| Reacts _ => True
| Goes_wrong _ => False
end.
Definition behavior_app (t: trace) (beh: program_behavior): program_behavior :=
match beh with
| Terminates t1 r => Terminates (t ** t1) r
| Diverges t1 => Diverges (t ** t1)
| Reacts T => Reacts (t *** T)
| Goes_wrong t1 => Goes_wrong (t ** t1)
end.

(* Specifications: *)
Lemma behavior_app_assoc:
forall t1 t2 beh,
behavior_app (t1 ** t2) beh = behavior_app t1 (behavior_app t2 beh).
Lemma behavior_app_E0:
forall beh, behavior_app E0 beh = beh.
Lemma behavior_app_assoc:
forall t1 t2 beh,
behavior_app (t1 ** t2) beh = behavior_app t1 (behavior_app t2 beh).
Lemma behavior_app_E0:
forall beh, behavior_app E0 beh = beh.