ocaml: phase 4 functors + module aliases (+5 tests, 225 total)

Parser: module F (M) (N) ... = struct DECLS end -> (:functor-def NAME
PARAMS DECLS). module N = expr (non-struct) -> (:module-alias NAME
BODY-SRC). Functor params accept (P) or (P : Sig) — signatures
parsed-and-skipped via skip-optional-sig.

Eval: ocaml-make-functor builds curried host-SX closures from module
dicts to a module dict. ocaml-resolve-module-path extended for :app so
F(A), F(A)(B), and Outer.Inner all resolve to dicts.

Phase 4 LOC ~290 cumulative (still well under 2000).

lib/ocaml/test.sh

@@ -567,6 +567,18 @@ cat > "$TMPFILE" << 'EPOCHS'
 (epoch 734)
 (eval "(ocaml-run-program \"module M = struct let x = 1 let y = 2 end ;; module N = struct include M let z = x + y end ;; N.z\")")
 
+;; ── Functors ───────────────────────────────────────────────────
+(epoch 750)
+(eval "(ocaml-run-program \"module Add (M) = struct let add x = x + M.n end ;; module Five = struct let n = 5 end ;; module AddFive = Add(Five) ;; AddFive.add 10\")")
+(epoch 751)
+(eval "(ocaml-run-program \"module M = struct let x = 1 end ;; module N = M ;; N.x\")")
+(epoch 752)
+(eval "(ocaml-run-program \"module Outer = struct module Inner = struct let v = 42 end end ;; module Alias = Outer.Inner ;; Alias.v\")")
+(epoch 753)
+(eval "(ocaml-run-program \"module Pair (A) (B) = struct let mk = (A.x, B.x) end ;; module One = struct let x = 1 end ;; module Two = struct let x = 2 end ;; module P = Pair(One)(Two) ;; P.mk\")")
+(epoch 754)
+(eval "(ocaml-run-program \"module Identity (M) = struct include M end ;; module Base = struct let v = 99 end ;; module Same = Identity(Base) ;; Same.v\")")
+
 EPOCHS
 
 OUTPUT=$(timeout 60 "$SX_SERVER" < "$TMPFILE" 2>/dev/null)
@@ -902,6 +914,13 @@ check 732 "module open inside"           '11'
 check 733 "Sphere.pi via include"        '3'
 check 734 "include M; N.z = x+y"         '3'
 
+# ── Functors ────────────────────────────────────────────────────
+check 750 "functor app Add(Five).add 10" '15'
+check 751 "module alias N = M"           '1'
+check 752 "submodule alias"              '42'
+check 753 "multi-param functor"          '("tuple" 1 2)'
+check 754 "Identity functor + include"   '99'
+
 TOTAL=$((PASS + FAIL))
 if [ $FAIL -eq 0 ]; then
   echo "ok $PASS/$TOTAL OCaml-on-SX tests passed"