Proof using.
unfold mgv_deghost_packet.
simpl. auto.
Qed.

(* Specifications: *)
Lemma pBody_mgv_deghost_packet :
forall (p : ghost_log_packet),
pBody (mgv_deghost_packet p) = snd (pBody p).
Lemma lifted_handleAppendEntries_logs_sorted :
forall (net : ghost_log_network) (p : ghost_log_packet) t n pli plt es ci st' m,
msg_refined_raft_intermediate_reachable net ->
handleAppendEntries (pDst p) (snd (nwState net (pDst p))) t n pli plt es ci = (st', m) ->
snd (pBody p) = AppendEntries t n pli plt es ci ->
In p (nwPackets net) ->
sorted (log st').