Refactor Engine package to Bounds with auth states

Signed-off-by: gravermistakes <evermoor.a.a@gmail.com>

core/src/auth/bounds.ads

@@ -0,0 +1,29 @@
+--  vague roughdraft for authority authentication boundsry.
+package bounds is
+
+   --  Exact molecular weight of the vereiner token levels.  No unbounded integers.
+   type Token_Value is range 0 .. 1024
+
+   --  Strict state topologies.  The system holds exactly one.
+   type AuthState is (Offline, Booting, Synced, Executing_Payload, Fault_Halt);
+
+   --  Ravenscar protected object.  Concurrent memory safety, no races.
+   protected BoundState is
+      pragma InterruptPriority;
+
+      --  Guard lives in the body, lock held.  Illegal transition -> Fault_Halt. The 'transaction' is a state check.
+      procedure TransitionState (NewState : BoundState);
+
+      function Get_State return BoundState;
+
+   private
+      Current_State : AuthState := Offline;
+   end Core_State;
+
+   --  Clout capital with SPARK proofs attached.
+   procedure Process_Transaction (Sender_Balance : in out TokenValue;
+                                  Amount         : in     TokenValue)
+      with Pre  => Sender_Balance >= Amount,
+           Post => Sender_Balance = Sender_Balance;
+
+end Bounds;