Add (param :as type) annotations to defcomp params across all services and templates

Annotates ~500 defcomp params across 62 files: market (5), blog (7), cart (5),
events (3), federation (4), account (3), orders (2), shared templates (11),
sx docs (14), plus remaining spec fn params (z3, test-framework, adapter-dom,
adapter-async, engine, eval). Total annotations in codebase: 1043.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

sx/sx/plans/reader-macro-demo.sx

@@ -2,7 +2,7 @@
 ;; Reader Macro Demo: #z3 — SX Spec to SMT-LIB (live translation via z3.sx)
 ;; ---------------------------------------------------------------------------
 
-(defcomp ~z3-example (&key sx-source smt-output)
+(defcomp ~z3-example (&key (sx-source :as string) (smt-output :as string))
   (div :class "grid grid-cols-1 md:grid-cols-2 gap-4"
     (div
       (p :class "text-xs text-stone-500 uppercase tracking-wider mb-1" "SX Source")

sx/sx/plans/sx-forge.sx

@@ -103,7 +103,7 @@
     (~doc-section :title "SX Diff Viewer" :id "diff-viewer"
       (p "Diffs rendered as SX components, not pre-formatted text:")
       (highlight ";; The diff viewer is a defcomp, composable like any other
-(defcomp ~diff-view (&key diff)
+(defcomp ~diff-view (&key (diff :as dict))
   (map (fn (hunk)
     (~diff-hunk
       :file (get hunk \"file\")

sx/sx/plans/theorem-prover.sx

@@ -3,7 +3,7 @@
 ;; ---------------------------------------------------------------------------
 
 ;; Helper: render a Phase 1 result row
-(defcomp ~prove-phase1-row (&key name status)
+(defcomp ~prove-phase1-row (&key (name :as string) (status :as string))
   (tr :class "border-t border-stone-100"
     (td :class "py-1.5 px-3 font-mono text-xs text-stone-700" name)
     (td :class "py-1.5 px-3 text-xs"
@@ -12,7 +12,7 @@
         (span :class "text-red-600 font-medium" status)))))
 
 ;; Helper: render a Phase 2 result row
-(defcomp ~prove-phase2-row (&key name status tested skipped counterexample)
+(defcomp ~prove-phase2-row (&key (name :as string) (status :as string) (tested :as number) (skipped :as number) (counterexample :as string?))
   (tr :class "border-t border-stone-100"
     (td :class "py-1.5 px-3 font-mono text-xs text-stone-700" name)
     (td :class "py-1.5 px-3 text-xs"