fix immutable ledger cddl definitions

Author: Mr-Leshiy

docs/src/architecture/08_concepts/immutable_ledger/cddl/Earthfile

@@ -7,7 +7,8 @@ check-cddl:
 
     WORKDIR /cddl
 
-    COPY ./block.cddl ./genesis_to_prev_hash.cddl .
+    COPY ./block.cddl ./genesis_to_prev_hash.cddl ./hash.cddl .
 
+    RUN cddlc -2 hash.cddl
     RUN cddlc -2 block.cddl
     RUN cddlc -2 genesis_to_prev_hash.cddl

docs/src/architecture/08_concepts/immutable_ledger/cddl/block.cddl

@@ -1,14 +1,14 @@
 block = [
-    block_header,
+    block-header,
     block-data,
     validator-signature,
 ]
 
-block_header = [
+block-header = [
     chain-id: ULID,
     height: int,
     timestamp: #6.1(uint .ge 1722470400), ; Epoch-based date/time
-    prev-block-id: hash_bytes, ; hash of the previous block
+    prev-block-id: hash-bytes, ; hash of the previous block
     ?ledger-type: UUID,
     ?purpose-id: ULID / UUID,
     ?validator,
@@ -20,14 +20,11 @@ block-data = encoded-cbor
 UUID = #6.37(bytes) ; UUID type
 ULID = #6.32780(bytes) ; ULID type
 
-hash_bytes = (
-  #6.32781(bytes) / ; Blake3 hash
-  #6.32782(bytes) / ; Blake2b hash
-  #6.32783(bytes) ; Blake2s hash
-)
-kid = hash_bytes ; hash of the x509/c509 certificate
+kid = hash-bytes ; hash of the x509/c509 certificate
 
 validator = (kid / [2* kid])
 metadata = [ *any ]
 
 validator-signature = (bytes / [2* bytes])
+
+;# include hash

docs/src/architecture/08_concepts/immutable_ledger/cddl/genesis_to_prev_hash.cddl

@@ -1,18 +1,15 @@
-genesis_to_prev_hash = [
-    chain_id: ULID,
-    timestamp: ~#6.1(uint .ge 1722470400), ; Epoch-based date/time
-    ledger_type: UUID,
-    purpose_id: ULID / UUID,
+genesis-to-prev-hash = [
+    chain-id: ULID,
+    timestamp: #6.1(uint .ge 1722470400), ; Epoch-based date/time
+    ledger-type: UUID,
+    purpose-id: ULID / UUID,
     validator,
 ]
 
 UUID = #6.37(bytes) ; UUID type
 ULID = #6.32780(bytes) ; ULID type
 
 validator = (kid / [2* kid])
-kid = hash_bytes ; hash of the x509/c509 certificate
-hash_bytes = (
-  #6.32781(bytes) \ ; Blake3 hash
-  #6.32782(bytes) \ ; Blake2b hash
-  #6.32783(bytes) ; Blake2s hash
-)
+kid = hash-bytes ; hash of the x509/c509 certificate
+
+;# include hash

docs/src/architecture/08_concepts/immutable_ledger/cddl/hash.cddl

@@ -0,0 +1,5 @@
+hash-bytes = (
+  #6.32781(bytes) / ; Blake3 hash
+  #6.32782(bytes) / ; Blake2b hash
+  #6.32783(bytes) ; Blake2s hash
+)