(* ** 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 (sig : finType) (n : nat) (P : Assert sig n) :
TripleT P 0 Nop (fun _ => P).