(* ** Some Hoare Rules *)
From Undecidability Require Export TM.Compound.Multi TM.Combinators.Combinators.
From Undecidability.TM.Hoare Require Import HoareLogic HoareRegister.
(* *** Nop *)
(* A classic example for Hoare logic *)

Lemma Nop_SpecT_con (sig : finType) (n : nat) (P : Assert sig n) k :
TripleT P k Nop (fun _ => P).