fact: Definition get_method (n: NId)(this: State)(k: Key): (Val * State) := let s := store this in let r := received this in let c := clock this in let d := dep this in let e := s k in let v := entry_val e in let n' := entry_node e in let c' := entry_clock e in let d' := if (n' <>? init_nid) then (n', c') :: d else d in (v, (state s r c d')).
imports: Coq(FunctionalExtensionality List Bool) Coq(Arith Arith.Peano_dec Arith.Compare_dec) Coq(Program.Basics) Chapar(Predefs extralib KVStore)