R3 gate #19: numeric aliases align to refinements

dsl/std/float.dag

@@ -1,21 +1,18 @@
 // std/float.dag -- Floating-point types as algebraic compositions.
 //
-// Fixed-width floats are width refinements of a single approximate-float
-// algebra axis (`Ieee754Float`) composed with `MachineWidth<Word*>` (R3 §1.8
-// gate #19 `numeric_aliases_align_to_refinements`). IEEE 754 rounding still
-// breaks pure field laws — approximate semantics remain Grounding's concern.
+// Fixed-width floats are width refinements of `ApproximateField<Word*>` (see
+// `src/v3/std/approximate_field.dag`) composed with `MachineWidth<Word*>` (R3 §1.8
+// gate #19 `numeric_aliases_align_to_refinements`). Approximate field laws subsume
+// IEEE-style rounding / NaN policy axes — grounding remains target-specific.
 
 module std.float
 
 import std.bit { Word32, Word64 }
 import std.machine_constraints { Compose, MachineWidth }
+import v3.std.approximate_field { ApproximateField }
 
-// Opaque substrate carrier for the IEEE-754 approximate-float algebra axis
-// (width-independent at this layer; specialization via Compose).
-type Ieee754Float
-
-type Float32 = Compose<Ieee754Float, MachineWidth<Word32>>
-type Float64 = Compose<Ieee754Float, MachineWidth<Word64>>
+type Float32 = Compose<ApproximateField<Word32>, MachineWidth<Word32>>
+type Float64 = Compose<ApproximateField<Word64>, MachineWidth<Word64>>
 
 // Default alias
 type Float = Float64

src/v3/compiler/src/bootstrap_regen_fresh.rs

@@ -30,6 +30,7 @@ const MACHINE_CONSTRAINTS_DAG: &str = include_str!("../../../../dsl/std/machine_
 const NAT_DAG: &str = include_str!("../../../../dsl/std/nat.dag");
 const INTEGER_DAG: &str = include_str!("../../../../dsl/std/integer.dag");
 const RATIONAL_DAG: &str = include_str!("../../../../dsl/std/rational.dag");
+const APPROXIMATE_FIELD_DAG: &str = include_str!("../../../v3/std/approximate_field.dag");
 const FLOAT_DAG: &str = include_str!("../../../../dsl/std/float.dag");
 const STRING_TYPE_DAG: &str = include_str!("../../../../dsl/std/string_type.dag");
 const TYPES_DAG: &str = include_str!("../../../../dsl/std/types.dag");
@@ -82,13 +83,22 @@ pub fn compile_std_bootstrap_dag() -> Dag {
 
 pub fn compile_full_bootstrap_dag_from_std_seed(std_seed: Dag) -> Dag {
     let mut dag = std_seed;
-    load_runtime_bootstrap_authorities(&mut dag, &[], &[]);
+    // `approximate_field.dag` is part of `std_fixtures()` so `dsl/std/float.dag` can
+    // import `ApproximateField`; skip the staged copy to avoid duplicate declarations.
+    load_runtime_bootstrap_authorities(&mut dag, &["src/v3/std/approximate_field.dag"], &[]);
     dag
 }
 
 pub fn compile_full_bootstrap_without_parse_surface_dag_from_std_seed(std_seed: Dag) -> Dag {
     let mut dag = std_seed;
-    load_runtime_bootstrap_authorities(&mut dag, &["src/v3/std/parse_surface.dag"], &[]);
+    load_runtime_bootstrap_authorities(
+        &mut dag,
+        &[
+            "src/v3/std/parse_surface.dag",
+            "src/v3/std/approximate_field.dag",
+        ],
+        &[],
+    );
     dag
 }
 
@@ -145,6 +155,7 @@ fn std_fixtures() -> &'static [(&'static str, &'static str)] {
         ("dsl/std/nat.dag", NAT_DAG),
         ("dsl/std/integer.dag", INTEGER_DAG),
         ("dsl/std/rational.dag", RATIONAL_DAG),
+        ("src/v3/std/approximate_field.dag", APPROXIMATE_FIELD_DAG),
         ("dsl/std/float.dag", FLOAT_DAG),
         ("dsl/std/types.dag", TYPES_DAG),
         ("dsl/std/string_type.dag", STRING_TYPE_DAG),