source: src/ERTLptr/Interference.ma @ 2868

Last change on this file since 2868 was 2845, checked in by piccolo, 8 years ago

ERTLptr to LTL correctness proof started

File size: 995 bytes
RevLine 
[2693]1include "ERTLptr/liveness.ma".
[1127]2
[1229]3inductive decision: Type[0] ≝
[1232]4  | decision_spill: nat → decision
[1229]5  | decision_colour: Register → decision.
6
[1423]7(* prop_colouring is the non interferece
8   prop_colouring 2 and 3 together say that spilled_no is the number of spilled
9   registers *)
10(* Wilmer: the generation of the destruct principle diverges;
11   Ctr-C make the file pass *)
[2286]12record coloured_graph (after: valuation register_lattice): Type[1] ≝
[1423]13{ colouring: vertex → decision
14; spilled_no: nat
[2845]15; prop_colouring: ∀l. ∀v1, v2: vertex.v1 ≠v2 →
[2286]16  lives v1 (after l) → lives v2 (after l) → colouring v1 ≠ colouring v2
17; prop_spilled_no: (*CSC: the exist-guarded premise is just to make the proof more general *)
18   ∀v1:vertex. (∃l. bool_to_Prop (lives v1 (after l))) → ∀i. colouring v1 = decision_spill i → i < spilled_no
[1229]19}.
20
[2739]21definition coloured_graph_computer ≝
22 ∀globals.
23  joint_internal_function ERTLptr globals →
24   ∀valuation.
25    coloured_graph valuation.
Note: See TracBrowser for help on using the repository browser.