diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-07-01 16:25:05 +0200 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-07-01 16:25:05 +0200 |
commit | ed7397533af0f850688256f07a2c5a22d6c58615 (patch) | |
tree | 28652a109d51d40ffc4ac1da629571f0977eaec7 /scheduling/BTL_SEsimuref.v | |
parent | 4b370424090ab9e87fdf48ea5b04482728f99b7f (diff) | |
download | compcert-kvx-ed7397533af0f850688256f07a2c5a22d6c58615.tar.gz compcert-kvx-ed7397533af0f850688256f07a2c5a22d6c58615.zip |
red_PTree lemmas
Diffstat (limited to 'scheduling/BTL_SEsimuref.v')
-rw-r--r-- | scheduling/BTL_SEsimuref.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/scheduling/BTL_SEsimuref.v b/scheduling/BTL_SEsimuref.v index 66abe6e1..60c49e04 100644 --- a/scheduling/BTL_SEsimuref.v +++ b/scheduling/BTL_SEsimuref.v @@ -38,6 +38,12 @@ Definition ris_sreg_get (ris: ristate) r: sval := end. Coercion ris_sreg_get: ristate >-> Funclass. +Definition ris_sreg_set (ris: ristate) (sreg: PTree.t sval): ristate := + {| ris_smem := ris_smem ris; + ris_input_init := ris_input_init ris; + ok_rsval := ok_rsval ris; + ris_sreg := sreg |}. + Record ris_ok ctx (ris: ristate) : Prop := { OK_RMEM: (eval_smem ctx (ris_smem ris)) <> None; OK_RREG: forall sv, List.In sv (ok_rsval ris) -> eval_sval ctx sv <> None |