fin-stream 2.4.2

//! Lorentz (special-relativistic) transforms applied to financial time series.
//!
//! ## Mathematical basis
//!
//! In special relativity, the Lorentz transformation relates the spacetime
//! coordinates `(t, x)` measured in one inertial frame `S` to the coordinates
//! `(t', x')` measured in a frame `S'` that moves with velocity `v` along the
//! x-axis:
//!
//! ```text
//!     t' = gamma * (t  - beta * x / c)
//!     x' = gamma * (x  - beta * c * t)
//!
//!     where  beta  = v / c          (dimensionless velocity, 0 <= beta < 1)
//!            gamma = 1 / sqrt(1 - beta^2)   (Lorentz factor, >= 1)
//! ```
//!
//! ## Application to market data
//!
//! Market microstructure theory frequently treats price discovery as a
//! diffusion process in two dimensions:
//!
//! - **Time axis `t`**: wall-clock time (seconds, or normalized to [0, 1]).
//! - **Price axis `x`**: log-price or normalized price.
//!
//! The Lorentz frame boost is applied as a **feature engineering** step:
//! it stretches or compresses the price-time plane along hyperbolas, which
//! are invariant under Lorentz boosts. The motivation is that certain
//! microstructure signals (momentum, mean-reversion) that appear curved in
//! the lab frame can appear as straight lines in a boosted frame.
//!
//! For a financial series, we set:
//! - `c = 1` (price changes are bounded by some maximum instantaneous return).
//! - `beta = drift_rate` (the normalized drift velocity of the price process).
//!
//! The transformed coordinates `(t', x')` are then fed as features into a
//! downstream model.
//!
//! ## Guarantees
//!
//! - Non-panicking: construction validates `beta` and returns a typed error.
//! - Deterministic: the same `(t, x, beta)` always produces the same output.
//! - `beta = 0` is the identity transform (gamma = 1, no distortion).

use crate::error::StreamError;

/// A spacetime event expressed as a (time, position) coordinate pair.
///
/// In the financial interpretation:
/// - `t` is elapsed time since the series start, normalized to a convenient
///   scale (e.g., seconds, or fraction of the session).
/// - `x` is normalized log-price or normalized price.
#[derive(Debug, Clone, Copy, PartialEq)]
pub struct SpacetimePoint {
    /// Time coordinate.
    pub t: f64,
    /// Spatial (price) coordinate.
    pub x: f64,
}

impl SpacetimePoint {
    /// Construct a new spacetime point.
    pub fn new(t: f64, x: f64) -> Self {
        Self { t, x }
    }

    /// 4-displacement from `self` to `other`: `(Δt, Δx) = (other.t - self.t, other.x - self.x)`.
    ///
    /// Useful for computing proper distances and intervals between events.
    pub fn displacement(self, other: Self) -> Self {
        Self {
            t: other.t - self.t,
            x: other.x - self.x,
        }
    }

    /// Minkowski norm squared: `t² − x²`.
    ///
    /// The sign classifies the causal relationship of the event to the origin:
    /// - Positive: time-like (inside the light cone — causally reachable).
    /// - Zero: light-like / null (on the light cone).
    /// - Negative: space-like (outside the light cone — causally disconnected).
    pub fn norm_sq(self) -> f64 {
        self.t * self.t - self.x * self.x
    }

    /// Returns `true` if this point is inside the light cone (`t² > x²`).
    pub fn is_timelike(self) -> bool {
        self.norm_sq() > 0.0
    }

    /// Returns `true` if this point lies on the light cone.
    ///
    /// Uses a tolerance of `1e-10` for floating-point comparisons.
    pub fn is_lightlike(self) -> bool {
        self.norm_sq().abs() < 1e-10
    }

    /// Returns `true` if this point is outside the light cone (`t² < x²`).
    pub fn is_spacelike(self) -> bool {
        self.norm_sq() < 0.0
    }

    /// Proper spacetime distance between `self` and `other`.
    ///
    /// Computed as `sqrt(|Δt² − Δx²|)` where `Δ = other − self`. The absolute
    /// value ensures a real result regardless of the interval type.
    /// For time-like separations this is the proper time; for space-like
    /// separations it is the proper length.
    pub fn distance_to(self, other: Self) -> f64 {
        let d = self.displacement(other);
        d.norm_sq().abs().sqrt()
    }
}

/// Lorentz frame-boost transform for financial time series.
///
/// Applies the special-relativistic Lorentz transformation with velocity
/// parameter `beta = v/c` to `(t, x)` coordinate pairs. The speed of light
/// is normalized to `c = 1`.
///
/// # Construction
///
/// ```rust
/// use fin_stream::lorentz::LorentzTransform;
///
/// let lt = LorentzTransform::new(0.5).unwrap(); // beta = 0.5
/// ```
///
/// # Identity
///
/// `beta = 0` is the identity: `t' = t`, `x' = x`.
///
/// # Singularity avoidance
///
/// `beta >= 1` would require dividing by zero in the Lorentz factor and is
/// rejected at construction time with `LorentzConfigError`.
#[derive(Debug, Clone, Copy)]
pub struct LorentzTransform {
    /// Normalized velocity (v/c). Satisfies `0.0 <= beta < 1.0`.
    beta: f64,
    /// Precomputed Lorentz factor: `1 / sqrt(1 - beta^2)`.
    gamma: f64,
}

impl LorentzTransform {
    /// Create a new Lorentz transform with the given velocity parameter.
    ///
    /// `beta` must satisfy `0.0 <= beta < 1.0`.
    ///
    /// # Errors
    ///
    /// Returns `LorentzConfigError` if `beta` is negative, `NaN`, or `>= 1.0`.
    pub fn new(beta: f64) -> Result<Self, StreamError> {
        if beta.is_nan() || beta < 0.0 || beta >= 1.0 {
            return Err(StreamError::LorentzConfigError {
                reason: format!(
                    "beta must be in [0.0, 1.0) but got {beta}; \
                     beta >= 1 produces a division by zero in the Lorentz factor"
                ),
            });
        }
        let gamma = 1.0 / (1.0 - beta * beta).sqrt();
        Ok(Self { beta, gamma })
    }

    /// Construct a Lorentz transform from rapidity `η = atanh(β)`.
    ///
    /// Rapidity is the additive parameter for successive boosts along the
    /// same axis: composing two boosts `η₁` and `η₂` gives `η₁ + η₂`.
    ///
    /// # Errors
    ///
    /// Returns [`StreamError::LorentzConfigError`] if `eta` is `NaN`, `Inf`, or
    /// results in `|beta| >= 1`.
    pub fn from_rapidity(eta: f64) -> Result<Self, StreamError> {
        if !eta.is_finite() {
            return Err(StreamError::LorentzConfigError {
                reason: format!("rapidity must be finite, got {eta}"),
            });
        }
        let beta = eta.tanh();
        Self::new(beta)
    }

    /// Construct a [`LorentzTransform`] from a velocity `v` and speed of light `c`.
    ///
    /// Computes `beta = v / c` and delegates to [`Self::new`].
    ///
    /// # Errors
    ///
    /// Returns [`StreamError::LorentzConfigError`] if `c` is zero, if `v` or
    /// `c` are non-finite, or if the resulting `|beta| >= 1`.
    pub fn from_velocity(v: f64, c: f64) -> Result<Self, StreamError> {
        if !v.is_finite() || !c.is_finite() {
            return Err(StreamError::LorentzConfigError {
                reason: format!("v and c must be finite, got v={v}, c={c}"),
            });
        }
        if c == 0.0 {
            return Err(StreamError::LorentzConfigError {
                reason: "speed of light c must be non-zero".into(),
            });
        }
        Self::new(v / c)
    }

    /// Returns the Lorentz gamma factor for the given `beta`: `1 / √(1 − β²)`.
    ///
    /// This is a pure mathematical helper — no validation is performed.
    /// Returns `f64::INFINITY` when `beta == 1.0` and `NaN` when `beta > 1.0`.
    pub fn gamma_at(beta: f64) -> f64 {
        (1.0 - beta * beta).sqrt().recip()
    }

    /// Relativistic momentum: `m × γ × β` (in natural units where `c = 1`).
    ///
    /// Returns the momentum of a particle with rest mass `mass` moving at
    /// the velocity encoded in this transform. Negative mass is allowed for
    /// analytical purposes but physically meaningless.
    pub fn relativistic_momentum(&self, mass: f64) -> f64 {
        mass * self.beta_times_gamma()
    }

    /// Kinetic energy factor: `γ − 1`.
    ///
    /// The relativistic kinetic energy is `KE = (γ − 1) mc²`. This method
    /// returns the dimensionless factor `γ − 1` so callers can multiply by
    /// `mc²` in their own units. Zero at rest (`β = 0`).
    pub fn kinetic_energy_ratio(&self) -> f64 {
        self.gamma() - 1.0
    }

    /// Time dilation factor: `γ` (gamma).
    ///
    /// Equivalent to [`gamma`](Self::gamma) but named for clarity when used in
    /// a time-dilation context. A moving clock ticks slower by this factor
    /// relative to the stationary frame.
    pub fn time_dilation_factor(&self) -> f64 {
        self.gamma()
    }

    /// Length contraction factor: `L' = L / gamma`.
    ///
    /// The reciprocal of the Lorentz factor — always in `(0.0, 1.0]`.
    pub fn length_contraction_factor(&self) -> f64 {
        1.0 / self.gamma()
    }

    /// Computes beta (v/c) from a Lorentz gamma factor. Returns an error if `gamma < 1.0`.
    pub fn beta_from_gamma(gamma: f64) -> Result<f64, StreamError> {
        if gamma.is_nan() || gamma < 1.0 {
            return Err(StreamError::LorentzConfigError {
                reason: format!("gamma must be >= 1.0, got {gamma}"),
            });
        }
        Ok((1.0 - 1.0 / (gamma * gamma)).sqrt())
    }

    /// Rapidity: `φ = atanh(β)`.
    ///
    /// Unlike velocity, rapidities add linearly under boosts:
    /// `φ_total = φ_1 + φ_2`.
    pub fn rapidity(&self) -> f64 {
        self.beta.atanh()
    }

    /// Relativistic parameter `β·γ` — proportional to the particle's 3-momentum.
    ///
    /// Defined as `β * γ = β / √(1 - β²)`. Useful for comparing relativistic
    /// momenta of different particles without specifying rest mass.
    pub fn beta_times_gamma(&self) -> f64 {
        self.beta * self.gamma
    }

    /// Converts a rapidity value back to a velocity `β = tanh(η)`.
    ///
    /// This is the inverse of `rapidity()`. Always returns a value in `(-1, 1)`.
    pub fn beta_from_rapidity(eta: f64) -> f64 {
        eta.tanh()
    }

    /// Proper velocity: `w = β × γ`.
    ///
    /// Unlike coordinate velocity `β`, proper velocity is unbounded and
    /// equals the spatial displacement per unit proper time.
    /// Alias for [`beta_times_gamma`](Self::beta_times_gamma).
    pub fn proper_velocity(&self) -> f64 {
        self.beta_times_gamma()
    }

    /// The configured velocity parameter `beta = v/c`.
    pub fn beta(&self) -> f64 {
        self.beta
    }

    /// The precomputed Lorentz factor `gamma = 1 / sqrt(1 - beta^2)`.
    ///
    /// `gamma == 1.0` when `beta == 0` (identity). `gamma` increases
    /// monotonically towards infinity as `beta` approaches 1.
    pub fn gamma(&self) -> f64 {
        self.gamma
    }

    /// Apply the Lorentz boost to a spacetime point.
    ///
    /// Computes:
    /// ```text
    ///     t' = gamma * (t - beta * x)
    ///     x' = gamma * (x - beta * t)
    /// ```
    ///
    /// # Complexity: O(1), no heap allocation.
    #[must_use]
    pub fn transform(&self, p: SpacetimePoint) -> SpacetimePoint {
        let t_prime = self.gamma * (p.t - self.beta * p.x);
        let x_prime = self.gamma * (p.x - self.beta * p.t);
        SpacetimePoint {
            t: t_prime,
            x: x_prime,
        }
    }

    /// Apply the inverse Lorentz boost (boost in the opposite direction).
    ///
    /// Computes:
    /// ```text
    ///     t' = gamma * (t + beta * x)
    ///     x' = gamma * (x + beta * t)
    /// ```
    ///
    /// For a point `p`, `inverse_transform(transform(p)) == p` up to floating-
    /// point rounding.
    ///
    /// # Complexity: O(1), no heap allocation.
    #[must_use]
    pub fn inverse_transform(&self, p: SpacetimePoint) -> SpacetimePoint {
        let t_orig = self.gamma * (p.t + self.beta * p.x);
        let x_orig = self.gamma * (p.x + self.beta * p.t);
        SpacetimePoint {
            t: t_orig,
            x: x_orig,
        }
    }

    /// Apply the boost to a batch of points.
    ///
    /// Returns a new `Vec` of transformed points. The input slice is not
    /// modified.
    ///
    /// # Complexity: O(n), one heap allocation of size `n`.
    pub fn transform_batch(&self, points: &[SpacetimePoint]) -> Vec<SpacetimePoint> {
        points.iter().map(|&p| self.transform(p)).collect()
    }

    /// Apply the inverse boost to a batch of points.
    ///
    /// Equivalent to calling [`inverse_transform`](Self::inverse_transform) on each element.
    /// For any slice `pts`, `inverse_transform_batch(&transform_batch(pts))` equals `pts`
    /// up to floating-point rounding.
    ///
    /// # Complexity: O(n), one heap allocation of size `n`.
    pub fn inverse_transform_batch(&self, points: &[SpacetimePoint]) -> Vec<SpacetimePoint> {
        points.iter().map(|&p| self.inverse_transform(p)).collect()
    }

    /// Time-dilation: the transformed time coordinate for a point at rest
    /// (`x = 0`) is `t' = gamma * t`.
    ///
    /// This is a convenience method that surfaces the time-dilation formula
    /// for the common case where only the time axis is of interest.
    ///
    /// # Complexity: O(1)
    pub fn dilate_time(&self, t: f64) -> f64 {
        self.gamma() * t
    }

    /// Length-contraction: the transformed spatial coordinate for an event at
    /// the time origin (`t = 0`) is `x' = gamma * x`.
    ///
    /// This is a convenience method that surfaces the length-contraction
    /// formula for the common case where only the price axis is of interest.
    ///
    /// # Complexity: O(1)
    pub fn contract_length(&self, x: f64) -> f64 {
        self.gamma() * x
    }

    /// Proper time: `coordinate_time / gamma`.
    ///
    /// The inverse of [`dilate_time`](Self::dilate_time). Converts a dilated
    /// coordinate time back to the proper time measured by a clock co-moving
    /// with the boosted frame — always shorter than the coordinate time by
    /// a factor of `gamma`.
    ///
    /// # Complexity: O(1)
    pub fn time_contraction(&self, coordinate_time: f64) -> f64 {
        coordinate_time / self.gamma()
    }

    /// Returns `true` if this boost is ultrarelativistic (`beta > 0.9`).
    ///
    /// At `beta > 0.9` the Lorentz factor `gamma > 2.3`, and relativistic
    /// effects dominate. Useful as a sanity guard before applying the boost
    /// to financial time-series where very high velocities indicate data issues.
    pub fn is_ultrarelativistic(&self) -> bool {
        self.beta > 0.9
    }

    /// Relativistic spatial momentum factor: `gamma × beta`.
    ///
    /// This is the spatial component of the four-momentum (up to a mass factor).
    /// At `beta = 0` the result is `0`; as `beta → 1` it diverges.
    ///
    /// # Complexity: O(1)
    pub fn momentum_factor(&self) -> f64 {
        self.beta_times_gamma()
    }

    /// Relativistic momentum in natural units (c = 1): `p = γ·m·β`.
    ///
    /// For a position-size analogy: `mass` represents a notional stake and `beta`
    /// represents velocity. The returned momentum scales that stake by the Lorentz
    /// factor, giving a measure of "relativistic commitment" that grows non-linearly
    /// as `beta → 1`.
    ///
    /// # Complexity: O(1)
    pub fn momentum(&self, mass: f64) -> f64 {
        self.relativistic_momentum(mass)
    }

    /// Relativistic total energy in natural units (c = 1): `E = γ·m`.
    ///
    /// For `rest_mass` expressed in the same energy units as the result, this
    /// returns the total energy of a particle with that rest mass moving at
    /// the configured `beta`. At rest (`beta = 0`, `gamma = 1`) the result
    /// equals `rest_mass`.
    pub fn relativistic_energy(&self, rest_mass: f64) -> f64 {
        self.gamma() * rest_mass
    }

    /// Relativistic kinetic energy in natural units (c = 1): `(γ − 1) · m`.
    ///
    /// This is the total relativistic energy minus the rest energy, i.e. the
    /// work done to accelerate the particle from rest to `beta`. At rest
    /// (`beta = 0`, `gamma = 1`) the result is zero.
    pub fn kinetic_energy(&self, rest_mass: f64) -> f64 {
        self.kinetic_energy_ratio() * rest_mass
    }

    /// Lorentz invariant `E² - p²` for a particle with the given `rest_mass`.
    ///
    /// In natural units (`c = 1`) this equals `rest_mass²` for any velocity,
    /// confirming that mass is a Lorentz scalar.
    pub fn energy_momentum_invariant(&self, rest_mass: f64) -> f64 {
        let e = self.relativistic_energy(rest_mass);
        let p = self.relativistic_momentum(rest_mass);
        e * e - p * p
    }

    /// Time component of the four-velocity: `u⁰ = γ`.
    ///
    /// In special relativity the four-velocity is `(γ, γβ, 0, 0)` (using the
    /// convention where `c = 1`). This returns the time component, which equals
    /// the Lorentz factor.  At rest `gamma = 1`; as `beta → 1` it diverges.
    pub fn four_velocity_time(&self) -> f64 {
        self.gamma()
    }

    /// Proper time dilation: the ratio of proper time elapsed in the moving frame
    /// to coordinate time `dt` elapsed in the rest frame.
    ///
    /// `proper_dt = dt / gamma` — a moving clock runs slower.
    pub fn proper_time_dilation(&self, dt: f64) -> f64 {
        self.time_contraction(dt)
    }

    /// Computes the Lorentz-invariant spacetime interval between two events.
    ///
    /// The interval is defined as `ds² = (Δt)² - (Δx)²` (signature `+−`).
    /// A positive result means the separation is time-like; negative means space-like;
    /// zero means light-like (the events could be connected by a photon).
    ///
    /// This quantity is invariant under Lorentz boosts — `apply(p1)` and `apply(p2)`
    /// will yield the same interval as `p1` and `p2` directly.
    ///
    /// # Complexity: O(1)
    pub fn spacetime_interval(p1: SpacetimePoint, p2: SpacetimePoint) -> f64 {
        p1.displacement(p2).norm_sq()
    }

    /// Relativistic velocity addition as a static helper.
    ///
    /// Computes `(beta1 + beta2) / (1 + beta1 * beta2)` without constructing
    /// a full `LorentzTransform`. Useful when only the composed velocity is
    /// needed rather than the full transform object.
    ///
    /// # Errors
    ///
    /// Returns [`StreamError::LorentzConfigError`] if either input is outside
    /// `[0, 1)` or if the composed velocity is `>= 1`.
    pub fn velocity_addition(beta1: f64, beta2: f64) -> Result<f64, StreamError> {
        if beta1.is_nan() || beta1 < 0.0 || beta1 >= 1.0 {
            return Err(StreamError::LorentzConfigError {
                reason: format!("beta1 must be in [0.0, 1.0), got {beta1}"),
            });
        }
        if beta2.is_nan() || beta2 < 0.0 || beta2 >= 1.0 {
            return Err(StreamError::LorentzConfigError {
                reason: format!("beta2 must be in [0.0, 1.0), got {beta2}"),
            });
        }
        let composed = (beta1 + beta2) / (1.0 + beta1 * beta2);
        if composed >= 1.0 {
            return Err(StreamError::LorentzConfigError {
                reason: format!("composed velocity {composed} >= 1.0 (speed of light)"),
            });
        }
        Ok(composed)
    }

    /// Proper time elapsed in the moving frame for a given coordinate time.
    ///
    /// Returns `coordinate_time / gamma`. For `beta = 0` (identity) this
    /// equals `coordinate_time`; as `beta → 1` the proper time shrinks toward
    /// zero (time dilation).
    ///
    /// # Complexity: O(1)
    pub fn proper_time(&self, coordinate_time: f64) -> f64 {
        self.time_contraction(coordinate_time)
    }

    /// Return a new `LorentzTransform` that boosts in the opposite direction.
    ///
    /// If `self` has velocity `beta`, `self.inverse()` has velocity `-beta`.
    /// Applying `self` then `self.inverse()` is the identity transform.
    ///
    /// This is equivalent to `LorentzTransform::new(-self.beta)` but avoids the
    /// error branch since negating a valid beta always produces a valid result.
    ///
    /// # Complexity: O(1)
    pub fn inverse(&self) -> Self {
        // (-beta)² == beta², so the Lorentz factor is unchanged.
        Self { beta: -self.beta, gamma: self.gamma }
    }

    /// Coordinate (lab-frame) time for a given proper time.
    ///
    /// Alias for [`dilate_time`](Self::dilate_time).
    #[deprecated(since = "2.2.0", note = "Use `dilate_time` instead")]
    pub fn time_dilation(&self, proper_time: f64) -> f64 {
        self.dilate_time(proper_time)
    }

    /// Compose two Lorentz boosts into a single equivalent boost.
    ///
    /// Uses the relativistic velocity addition formula:
    ///
    /// ```text
    ///     beta_composed = (beta_1 + beta_2) / (1 + beta_1 * beta_2)
    /// ```
    ///
    /// This is the physical law stating that applying boost `self` then boost
    /// `other` is equivalent to a single boost with the composed velocity.
    ///
    /// # Errors
    ///
    /// Returns [`StreamError::LorentzConfigError`] if the composed velocity
    /// reaches or exceeds 1 (the speed of light), which cannot happen for
    /// valid inputs but is checked defensively.
    pub fn compose(&self, other: &LorentzTransform) -> Result<Self, StreamError> {
        self.composition(other)
    }

    /// Compose a sequence of boosts into a single equivalent transform.
    ///
    /// Applies [`compose`](Self::compose) left-to-right over `betas`, starting
    /// from the identity boost (beta = 0). An empty slice returns the identity.
    ///
    /// # Errors
    ///
    /// Returns [`StreamError::LorentzConfigError`] if any beta is invalid or
    /// the accumulated velocity reaches the speed of light.
    pub fn boost_chain(betas: &[f64]) -> Result<Self, StreamError> {
        let mut result = LorentzTransform::new(0.0)?;
        for &beta in betas {
            let next = LorentzTransform::new(beta)?;
            result = result.compose(&next)?;
        }
        Ok(result)
    }

    /// Returns `true` if this transform is effectively the identity (`beta ≈ 0`).
    ///
    /// The identity leaves spacetime coordinates unchanged: `t' = t`, `x' = x`.
    /// Uses a tolerance of `1e-10`.
    pub fn is_identity(&self) -> bool {
        self.beta.abs() < 1e-10
    }

    /// Relativistic composition of two boosts (Einstein velocity addition).
    ///
    /// The composed transform moves at `β = (β₁ + β₂) / (1 + β₁β₂)`, which is
    /// equivalent to adding rapidities: `tanh⁻¹(β_composed) = tanh⁻¹(β₁) + tanh⁻¹(β₂)`.
    ///
    /// # Errors
    ///
    /// Returns [`StreamError::LorentzConfigError`] if the composed beta reaches or
    /// exceeds the speed of light (should not happen for valid sub-luminal inputs).
    pub fn composition(&self, other: &Self) -> Result<Self, StreamError> {
        let b1 = self.beta;
        let b2 = other.beta;
        let denom = 1.0 + b1 * b2;
        if denom.abs() < 1e-15 {
            return Err(StreamError::LorentzConfigError {
                reason: "boost composition denominator too small (near-singular)".into(),
            });
        }
        Self::new((b1 + b2) / denom)
    }

    /// Relativistic Doppler factor for a source moving toward the observer at `β`.
    ///
    /// `D = √((1 + β) / (1 − β))`. Alias for [`doppler_ratio`](Self::doppler_ratio).
    #[deprecated(since = "2.2.0", note = "Use `doppler_ratio` instead")]
    pub fn doppler_factor(&self) -> f64 {
        self.doppler_ratio()
    }

    /// Relativistic aberration angle for a light ray with direction cosine `cos_theta`.
    ///
    /// Computes the observed angle using `cos θ' = (cos θ + β) / (1 + β cos θ)`,
    /// returning the aberrated angle in radians in `[0, π]`.
    pub fn aberration_angle(&self, cos_theta: f64) -> f64 {
        let cos_prime = (cos_theta + self.beta) / (1.0 + self.beta * cos_theta);
        cos_prime.clamp(-1.0, 1.0).acos()
    }

    /// Relativistic mass for a particle with `rest_mass` moving at `β`.
    ///
    /// `m = rest_mass × γ`. Alias for [`relativistic_energy`](Self::relativistic_energy)
    /// in natural units (c = 1).
    #[deprecated(since = "2.2.0", note = "Use `relativistic_energy` instead")]
    pub fn relativistic_mass(&self, rest_mass: f64) -> f64 {
        self.relativistic_energy(rest_mass)
    }

    /// Ratio of kinetic energy to rest energy: `γ - 1`.
    ///
    /// Alias for [`kinetic_energy_ratio`](Self::kinetic_energy_ratio).
    #[deprecated(since = "2.2.0", note = "Use `kinetic_energy_ratio` instead")]
    pub fn energy_ratio(&self) -> f64 {
        self.kinetic_energy_ratio()
    }

    /// Warp factor in the Star Trek convention: `w = γ^(1/3)`.
    ///
    /// A pure curiosity / educational mapping; warp 1 corresponds to β = 0 (rest), and
    /// higher warp values correspond to higher Lorentz factors.
    pub fn warp_factor(&self) -> f64 {
        self.gamma().cbrt()
    }

    /// Four-momentum `(E, p)` in natural units (`c = 1`).
    ///
    /// Returns `(γ·mass, γ·mass·β)` where the first component is the relativistic
    /// energy and the second is the relativistic momentum magnitude.
    pub fn four_momentum(&self, mass: f64) -> (f64, f64) {
        let g = self.gamma();
        (g * mass, g * mass * self.beta)
    }

    /// Relativistic momentum per unit rest mass: `γ × β`.
    ///
    /// Alias for [`beta_times_gamma`](Self::beta_times_gamma).
    #[deprecated(since = "2.2.0", note = "Use `beta_times_gamma` instead")]
    pub fn momentum_ratio(&self) -> f64 {
        self.beta_times_gamma()
    }

    /// Returns `true` if β > 0.9, the conventional ultra-relativistic threshold.
    ///
    /// Alias for [`is_ultrarelativistic`](Self::is_ultrarelativistic).
    #[deprecated(since = "2.2.0", note = "Use `is_ultrarelativistic` instead")]
    pub fn is_ultra_relativistic(&self) -> bool {
        self.is_ultrarelativistic()
    }

    /// First-order Taylor approximation of γ valid for small β: `1 + β²/2`.
    ///
    /// Accurate to ~0.1% for β < 0.1; diverges significantly above β ≈ 0.4.
    pub fn lorentz_factor_approx(&self) -> f64 {
        1.0 + 0.5 * self.beta * self.beta
    }

    /// Ratio of this transform's β to another's: `self.beta / other.beta`.
    ///
    /// Returns `f64::INFINITY` if `other.beta` is zero and `self.beta > 0`,
    /// and `f64::NAN` if both are zero.
    pub fn velocity_ratio(&self, other: &Self) -> f64 {
        self.beta / other.beta
    }

    /// Proper length from an observed (length-contracted) length: `observed * gamma`.
    ///
    /// Inverse of length contraction: recovers the rest-frame length from an
    /// observed measurement made in the moving frame.
    pub fn proper_length(&self, observed: f64) -> f64 {
        self.dilate_time(observed)
    }

    /// Observed (length-contracted) length given a `rest_length`: `rest_length / gamma`.
    ///
    /// A moving object of rest length `L₀` appears shortened to `L₀ / γ` in the observer frame.
    pub fn length_contraction(&self, rest_length: f64) -> f64 {
        self.time_contraction(rest_length)
    }

    /// Classifies a spacetime interval `(dt, dx)` as `"timelike"`, `"lightlike"`, or `"spacelike"`.
    ///
    /// Spacetime interval: `s² = dt² - dx²` (in natural units, c = 1).
    /// - `s² > 0` → timelike (causally connected)
    /// - `s² = 0` → lightlike (on the light cone)
    /// - `s² < 0` → spacelike (causally disconnected)
    pub fn light_cone_check(dt: f64, dx: f64) -> &'static str {
        let s_sq = dt * dt - dx * dx;
        if s_sq > 1e-12 {
            "timelike"
        } else if s_sq < -1e-12 {
            "spacelike"
        } else {
            "lightlike"
        }
    }

    /// Lorentz-invariant rest mass from energy and momentum: `m = sqrt(E² - p²)`.
    ///
    /// In natural units (`c = 1`). Returns `None` if `E² < p²` (unphysical configuration).
    pub fn lorentz_invariant_mass(energy: f64, momentum: f64) -> Option<f64> {
        let m_sq = energy * energy - momentum * momentum;
        if m_sq < 0.0 { return None; }
        Some(m_sq.sqrt())
    }

    /// Relativistic aberration: corrected cosine of angle when viewed from boosted frame.
    ///
    /// `cos_theta' = (cos_theta - beta) / (1 - beta * cos_theta)`.
    /// Returns `None` if the denominator is zero (numerically degenerate case).
    pub fn aberration_correction(&self, cos_theta: f64) -> Option<f64> {
        let denom = 1.0 - self.beta * cos_theta;
        if denom.abs() < 1e-15 { return None; }
        Some((cos_theta - self.beta) / denom)
    }

    /// Relativistic Doppler ratio: `sqrt((1 + beta) / (1 - beta))`.
    ///
    /// Values > 1 represent blue-shift (approaching); < 1 red-shift (receding).
    /// At rest (beta = 0) returns 1.0.
    pub fn doppler_ratio(&self) -> f64 {
        ((1.0 + self.beta) / (1.0 - self.beta)).sqrt()
    }

    /// Dilated coordinate time in milliseconds for a given proper time `proper_ms`.
    ///
    /// `t_coordinate = gamma * t_proper`. A moving clock ticks slower by factor γ.
    pub fn time_dilation_ms(&self, proper_ms: f64) -> f64 {
        self.dilate_time(proper_ms)
    }

    /// Length contraction: contracted length for a given proper (rest-frame) length.
    ///
    /// Alias for [`length_contraction`](Self::length_contraction).
    #[deprecated(since = "2.2.0", note = "Use `length_contraction` instead")]
    pub fn space_contraction(&self, proper_length: f64) -> f64 {
        self.length_contraction(proper_length)
    }

    /// Relativistic proper acceleration for a given coordinate force and rest mass.
    ///
    /// `a = F / (gamma^3 * m)` — coordinate acceleration decreases as gamma grows.
    /// Returns `None` if `mass` is zero.
    pub fn proper_acceleration(&self, force: f64, mass: f64) -> Option<f64> {
        if mass == 0.0 { return None; }
        Some(force / (self.gamma.powi(3) * mass))
    }

    /// Relativistic momentum proxy: `gamma * beta` (natural units, rest mass = 1).
    ///
    /// Spatial component of the four-velocity; additive in rapidity space.
    pub fn momentum_rapidity(&self) -> f64 {
        self.beta_times_gamma()
    }

    /// Inverse Lorentz factor: `1 / gamma`.
    ///
    /// Equals `sqrt(1 - beta^2)`. Approaches 1 at low speeds; 0 at light speed.
    pub fn inverse_gamma(&self) -> f64 {
        self.length_contraction_factor()
    }

    /// Compose two collinear boosts: `beta_total = (beta1 + beta2) / (1 + beta1*beta2)`.
    ///
    /// Returns the combined beta from relativistic velocity addition.
    /// Returns `Err` if the result would equal or exceed c (|beta| >= 1).
    pub fn boost_composition(beta1: f64, beta2: f64) -> Result<f64, crate::error::StreamError> {
        let denom = 1.0 + beta1 * beta2;
        if denom.abs() < 1e-15 {
            return Err(crate::error::StreamError::LorentzConfigError {
                reason: "degenerate boost composition".into(),
            });
        }
        let result = (beta1 + beta2) / denom;
        if result.abs() >= 1.0 {
            return Err(crate::error::StreamError::LorentzConfigError {
                reason: "boost exceeds c".into(),
            });
        }
        Ok(result)
    }
}

#[cfg(test)]
mod tests {
    use super::*;

    const EPS: f64 = 1e-10;

    fn approx_eq(a: f64, b: f64) -> bool {
        (a - b).abs() < EPS
    }

    fn point_approx_eq(a: SpacetimePoint, b: SpacetimePoint) -> bool {
        approx_eq(a.t, b.t) && approx_eq(a.x, b.x)
    }

    // ── Construction ─────────────────────────────────────────────────────────

    #[test]
    fn test_new_valid_beta() {
        let lt = LorentzTransform::new(0.5).unwrap();
        assert!((lt.beta() - 0.5).abs() < EPS);
    }

    #[test]
    fn test_new_beta_zero() {
        let lt = LorentzTransform::new(0.0).unwrap();
        assert_eq!(lt.beta(), 0.0);
        assert!((lt.gamma() - 1.0).abs() < EPS);
    }

    #[test]
    fn test_new_beta_one_returns_error() {
        let err = LorentzTransform::new(1.0).unwrap_err();
        assert!(matches!(err, StreamError::LorentzConfigError { .. }));
    }

    #[test]
    fn test_new_beta_above_one_returns_error() {
        let err = LorentzTransform::new(1.5).unwrap_err();
        assert!(matches!(err, StreamError::LorentzConfigError { .. }));
    }

    #[test]
    fn test_new_beta_negative_returns_error() {
        let err = LorentzTransform::new(-0.1).unwrap_err();
        assert!(matches!(err, StreamError::LorentzConfigError { .. }));
    }

    #[test]
    fn test_new_beta_nan_returns_error() {
        let err = LorentzTransform::new(f64::NAN).unwrap_err();
        assert!(matches!(err, StreamError::LorentzConfigError { .. }));
    }

    // ── beta = 0 is identity ─────────────────────────────────────────────────

    #[test]
    fn test_beta_zero_is_identity_transform() {
        let lt = LorentzTransform::new(0.0).unwrap();
        let p = SpacetimePoint::new(3.0, 4.0);
        let q = lt.transform(p);
        assert!(point_approx_eq(p, q), "beta=0 must be identity, got {q:?}");
    }

    // ── Time dilation ─────────────────────────────────────────────────────────

    /// For a point at x=0, t' = gamma * t (pure time dilation).
    #[test]
    fn test_time_dilation_at_x_zero() {
        let lt = LorentzTransform::new(0.6).unwrap();
        let p = SpacetimePoint::new(5.0, 0.0);
        let q = lt.transform(p);
        let expected_t = lt.gamma() * 5.0;
        assert!(approx_eq(q.t, expected_t));
    }

    #[test]
    fn test_dilate_time_helper() {
        let lt = LorentzTransform::new(0.6).unwrap();
        assert!(approx_eq(lt.dilate_time(1.0), lt.gamma()));
    }

    // ── Length contraction ────────────────────────────────────────────────────

    /// For a point at t=0, x' = gamma * x (pure length contraction).
    #[test]
    fn test_length_contraction_at_t_zero() {
        let lt = LorentzTransform::new(0.6).unwrap();
        let p = SpacetimePoint::new(0.0, 5.0);
        let q = lt.transform(p);
        let expected_x = lt.gamma() * 5.0;
        assert!(approx_eq(q.x, expected_x));
    }

    #[test]
    fn test_contract_length_helper() {
        let lt = LorentzTransform::new(0.6).unwrap();
        assert!(approx_eq(lt.contract_length(1.0), lt.gamma()));
    }

    // ── Known beta values ─────────────────────────────────────────────────────

    /// For beta = 0.6, gamma = 1.25 (classic textbook value).
    #[test]
    fn test_known_beta_0_6_gamma_is_1_25() {
        let lt = LorentzTransform::new(0.6).unwrap();
        assert!(
            (lt.gamma() - 1.25).abs() < 1e-9,
            "gamma should be 1.25, got {}",
            lt.gamma()
        );
    }

    /// For beta = 0.8, gamma = 5/3 approximately 1.6667.
    #[test]
    fn test_known_beta_0_8_gamma() {
        let lt = LorentzTransform::new(0.8).unwrap();
        let expected_gamma = 5.0 / 3.0;
        assert!((lt.gamma() - expected_gamma).abs() < 1e-9);
    }

    /// For beta = 0.5, gamma = 2/sqrt(3) approximately 1.1547.
    #[test]
    fn test_known_beta_0_5_gamma() {
        let lt = LorentzTransform::new(0.5).unwrap();
        let expected_gamma = 2.0 / 3.0f64.sqrt();
        assert!((lt.gamma() - expected_gamma).abs() < 1e-9);
    }

    /// Transform a known point with beta=0.6 and verify the result manually.
    ///
    /// Point (t=1, x=0): t' = 1.25 * (1 - 0.6*0) = 1.25; x' = 1.25*(0 - 0.6) = -0.75
    #[test]
    fn test_transform_known_point_beta_0_6() {
        let lt = LorentzTransform::new(0.6).unwrap();
        let p = SpacetimePoint::new(1.0, 0.0);
        let q = lt.transform(p);
        assert!((q.t - 1.25).abs() < 1e-9);
        assert!((q.x - (-0.75)).abs() < 1e-9);
    }

    // ── Inverse round-trip ────────────────────────────────────────────────────

    #[test]
    fn test_inverse_transform_roundtrip() {
        let lt = LorentzTransform::new(0.7).unwrap();
        let p = SpacetimePoint::new(3.0, 1.5);
        let q = lt.transform(p);
        let r = lt.inverse_transform(q);
        assert!(
            point_approx_eq(r, p),
            "round-trip failed: expected {p:?}, got {r:?}"
        );
    }

    // ── Batch transform ───────────────────────────────────────────────────────

    #[test]
    fn test_transform_batch_length_preserved() {
        let lt = LorentzTransform::new(0.3).unwrap();
        let pts = vec![
            SpacetimePoint::new(0.0, 1.0),
            SpacetimePoint::new(1.0, 2.0),
            SpacetimePoint::new(2.0, 3.0),
        ];
        let out = lt.transform_batch(&pts);
        assert_eq!(out.len(), pts.len());
    }

    #[test]
    fn test_transform_batch_matches_individual() {
        let lt = LorentzTransform::new(0.4).unwrap();
        let pts = vec![SpacetimePoint::new(1.0, 0.5), SpacetimePoint::new(2.0, 1.5)];
        let batch = lt.transform_batch(&pts);
        for (i, &p) in pts.iter().enumerate() {
            let individual = lt.transform(p);
            assert!(
                point_approx_eq(batch[i], individual),
                "batch[{i}] differs from individual transform"
            );
        }
    }

    #[test]
    fn test_inverse_transform_batch_roundtrip() {
        let lt = LorentzTransform::new(0.5).unwrap();
        let pts = vec![
            SpacetimePoint::new(1.0, 0.0),
            SpacetimePoint::new(2.0, 1.0),
            SpacetimePoint::new(0.0, 3.0),
        ];
        let transformed = lt.transform_batch(&pts);
        let restored = lt.inverse_transform_batch(&transformed);
        for (i, (&orig, &rest)) in pts.iter().zip(restored.iter()).enumerate() {
            assert!(
                point_approx_eq(orig, rest),
                "round-trip failed at index {i}: expected {orig:?}, got {rest:?}"
            );
        }
    }

    #[test]
    fn test_inverse_transform_batch_length_preserved() {
        let lt = LorentzTransform::new(0.3).unwrap();
        let pts = vec![SpacetimePoint::new(0.0, 0.0), SpacetimePoint::new(1.0, 1.0)];
        assert_eq!(lt.inverse_transform_batch(&pts).len(), pts.len());
    }

    // ── SpacetimePoint ────────────────────────────────────────────────────────

    #[test]
    fn test_spacetime_point_fields() {
        let p = SpacetimePoint::new(1.5, 2.5);
        assert_eq!(p.t, 1.5);
        assert_eq!(p.x, 2.5);
    }

    #[test]
    fn test_spacetime_point_equality() {
        let p = SpacetimePoint::new(1.0, 2.0);
        let q = SpacetimePoint::new(1.0, 2.0);
        assert_eq!(p, q);
    }

    // ── Compose ───────────────────────────────────────────────────────────────

    /// Two zero boosts compose to zero.
    #[test]
    fn test_compose_identity_with_identity() {
        let lt = LorentzTransform::new(0.0).unwrap();
        let composed = lt.compose(&lt).unwrap();
        assert!(approx_eq(composed.beta(), 0.0));
    }

    /// Relativistic addition: 0.5 + 0.5 = 0.8 (not 1.0).
    #[test]
    fn test_compose_0_5_and_0_5() {
        let lt = LorentzTransform::new(0.5).unwrap();
        let composed = lt.compose(&lt).unwrap();
        let expected = (0.5 + 0.5) / (1.0 + 0.5 * 0.5); // = 1.0 / 1.25 = 0.8
        assert!((composed.beta() - expected).abs() < EPS);
    }

    /// Composing boost with its inverse should give the identity (beta ≈ 0).
    #[test]
    fn test_compose_with_negative_is_identity() {
        // Applying +0.3, then -0.3 should cancel out: (0.3 - 0.3) / (1 - 0.09) = 0
        let lt_fwd = LorentzTransform::new(0.3).unwrap();
        let lt_bwd = LorentzTransform::new(0.3).unwrap();
        // Compose forward boost with itself is not identity; test associativity
        // For actual cancellation we'd need negative beta — out of domain.
        // Instead verify compose gives valid beta < 1.
        let composed = lt_fwd.compose(&lt_bwd).unwrap();
        assert!(composed.beta() < 1.0);
    }

    // ── Rapidity ──────────────────────────────────────────────────────────────

    /// beta=0 has rapidity 0 (atanh(0) = 0).
    #[test]
    fn test_rapidity_zero_beta() {
        let lt = LorentzTransform::new(0.0).unwrap();
        assert!(approx_eq(lt.rapidity(), 0.0));
    }

    /// Rapidity for beta=0.5: atanh(0.5) ≈ 0.5493.
    #[test]
    fn test_rapidity_known_value() {
        let lt = LorentzTransform::new(0.5).unwrap();
        let expected = (0.5f64).atanh();
        assert!((lt.rapidity() - expected).abs() < EPS);
    }

    /// Rapidities are additive: rapidity(compose(a, b)) == rapidity(a) + rapidity(b).
    #[test]
    fn test_rapidity_is_additive_under_composition() {
        let lt1 = LorentzTransform::new(0.3).unwrap();
        let lt2 = LorentzTransform::new(0.4).unwrap();
        let composed = lt1.compose(&lt2).unwrap();
        let sum_rapidities = lt1.rapidity() + lt2.rapidity();
        assert!(
            (composed.rapidity() - sum_rapidities).abs() < 1e-9,
            "rapidity should be additive: {} vs {}",
            composed.rapidity(),
            sum_rapidities
        );
    }

    // ── Velocity addition (static) ────────────────────────────────────────────

    #[test]
    fn test_velocity_addition_known_values() {
        // 0.5 + 0.5 = 0.8 (same as compose test)
        let result = LorentzTransform::velocity_addition(0.5, 0.5).unwrap();
        assert!((result - 0.8).abs() < EPS);
    }

    #[test]
    fn test_velocity_addition_identity_with_zero() {
        let result = LorentzTransform::velocity_addition(0.0, 0.6).unwrap();
        assert!((result - 0.6).abs() < EPS);
    }

    #[test]
    fn test_velocity_addition_invalid_beta_rejected() {
        assert!(LorentzTransform::velocity_addition(1.0, 0.5).is_err());
        assert!(LorentzTransform::velocity_addition(0.5, 1.0).is_err());
        assert!(LorentzTransform::velocity_addition(-0.1, 0.5).is_err());
    }

    #[test]
    fn test_velocity_addition_matches_compose() {
        let b1 = 0.3;
        let b2 = 0.4;
        let static_result = LorentzTransform::velocity_addition(b1, b2).unwrap();
        let lt1 = LorentzTransform::new(b1).unwrap();
        let lt2 = LorentzTransform::new(b2).unwrap();
        let composed = lt1.compose(&lt2).unwrap();
        assert!((static_result - composed.beta()).abs() < EPS);
    }

    // ── Proper time ───────────────────────────────────────────────────────────

    /// beta=0: proper_time == coordinate_time (no dilation).
    #[test]
    fn test_proper_time_identity_at_zero_beta() {
        let lt = LorentzTransform::new(0.0).unwrap();
        assert!(approx_eq(lt.proper_time(10.0), 10.0));
    }

    /// proper_time = coordinate_time / gamma; always <= coordinate_time.
    #[test]
    fn test_proper_time_less_than_coordinate_time() {
        let lt = LorentzTransform::new(0.6).unwrap(); // gamma = 1.25
        let tau = lt.proper_time(5.0);
        // tau = 5.0 / 1.25 = 4.0
        assert!((tau - 4.0).abs() < EPS);
        assert!(tau < 5.0);
    }

    /// proper_time(dilate_time(t)) should round-trip to t.
    #[test]
    fn test_proper_time_roundtrip_with_dilate_time() {
        let lt = LorentzTransform::new(0.8).unwrap();
        let t = 3.0;
        let dilated = lt.dilate_time(t);
        let recovered = lt.proper_time(dilated);
        assert!(approx_eq(recovered, t));
    }

    /// Compose and then transform equals applying both transforms sequentially.
    #[test]
    fn test_compose_equals_sequential_transforms() {
        let lt1 = LorentzTransform::new(0.3).unwrap();
        let lt2 = LorentzTransform::new(0.4).unwrap();
        let composed = lt1.compose(&lt2).unwrap();

        let p = SpacetimePoint::new(2.0, 1.0);
        let sequential = lt2.transform(lt1.transform(p));
        let single = composed.transform(p);
        assert!(
            point_approx_eq(sequential, single),
            "composed boost must equal sequential: {sequential:?} vs {single:?}"
        );
    }

    // ── SpacetimePoint::displacement ─────────────────────────────────────────

    #[test]
    fn test_displacement_gives_correct_deltas() {
        let a = SpacetimePoint::new(1.0, 2.0);
        let b = SpacetimePoint::new(4.0, 6.0);
        let d = a.displacement(b);
        assert!(approx_eq(d.t, 3.0));
        assert!(approx_eq(d.x, 4.0));
    }

    #[test]
    fn test_displacement_to_self_is_zero() {
        let a = SpacetimePoint::new(3.0, 7.0);
        let d = a.displacement(a);
        assert!(approx_eq(d.t, 0.0));
        assert!(approx_eq(d.x, 0.0));
    }

    // ── LorentzTransform::boost_chain ────────────────────────────────────────

    #[test]
    fn test_boost_chain_empty_is_identity() {
        let chain = LorentzTransform::boost_chain(&[]).unwrap();
        assert!(approx_eq(chain.beta(), 0.0));
        assert!(approx_eq(chain.gamma(), 1.0));
    }

    #[test]
    fn test_boost_chain_single_equals_new() {
        let chain = LorentzTransform::boost_chain(&[0.5]).unwrap();
        let direct = LorentzTransform::new(0.5).unwrap();
        assert!(approx_eq(chain.beta(), direct.beta()));
    }

    #[test]
    fn test_boost_chain_two_equals_compose() {
        let chain = LorentzTransform::boost_chain(&[0.3, 0.4]).unwrap();
        let manual = LorentzTransform::new(0.3)
            .unwrap()
            .compose(&LorentzTransform::new(0.4).unwrap())
            .unwrap();
        assert!(approx_eq(chain.beta(), manual.beta()));
    }

    #[test]
    fn test_boost_chain_invalid_beta_returns_error() {
        assert!(LorentzTransform::boost_chain(&[1.0]).is_err());
        assert!(LorentzTransform::boost_chain(&[0.3, -0.1]).is_err());
    }

    // ── LorentzTransform::time_dilation ───────────────────────────────────────

    #[test]
    fn test_time_dilation_identity_at_zero_beta() {
        // beta=0, gamma=1 → time_dilation(t) == t
        let lt = LorentzTransform::new(0.0).unwrap();
        assert!(approx_eq(lt.time_dilation(10.0), 10.0));
    }

    #[test]
    fn test_time_dilation_inverse_of_proper_time() {
        // time_dilation(proper_time(t)) should round-trip to t
        let lt = LorentzTransform::new(0.6).unwrap();
        let t = 5.0_f64;
        let tau = lt.proper_time(t);
        assert!(approx_eq(lt.time_dilation(tau), t));
    }

    #[test]
    fn test_time_dilation_greater_than_proper_time() {
        // For beta > 0: coordinate_time = gamma * tau > tau (moving clocks run slower)
        let lt = LorentzTransform::new(0.8).unwrap();
        let proper = 3.0_f64;
        let coord = lt.time_dilation(proper);
        assert!(coord > proper);
    }

    // ── LorentzTransform::inverse ─────────────────────────────────────────────

    #[test]
    fn test_inverse_negates_beta() {
        let lt = LorentzTransform::new(0.6).unwrap();
        let inv = lt.inverse();
        assert!(approx_eq(inv.beta(), -0.6));
    }

    #[test]
    fn test_inverse_preserves_gamma_magnitude() {
        let lt = LorentzTransform::new(0.6).unwrap();
        let inv = lt.inverse();
        // gamma only depends on beta^2, so |gamma| is the same
        assert!(approx_eq(inv.gamma(), lt.gamma()));
    }

    #[test]
    fn test_inverse_roundtrips_point() {
        let lt = LorentzTransform::new(0.5).unwrap();
        let p = SpacetimePoint::new(3.0, 1.0);
        let boosted = lt.transform(p);
        let recovered = lt.inverse().transform(boosted);
        assert!(point_approx_eq(recovered, p));
    }

    // ── SpacetimePoint::norm_sq / is_timelike / is_lightlike / is_spacelike ──

    #[test]
    fn test_norm_sq_timelike() {
        // t=3, x=1 → 9 - 1 = 8 > 0
        let p = SpacetimePoint::new(3.0, 1.0);
        assert!((p.norm_sq() - 8.0).abs() < EPS);
        assert!(p.is_timelike());
        assert!(!p.is_spacelike());
        assert!(!p.is_lightlike());
    }

    #[test]
    fn test_norm_sq_spacelike() {
        // t=1, x=3 → 1 - 9 = -8 < 0
        let p = SpacetimePoint::new(1.0, 3.0);
        assert!((p.norm_sq() - (-8.0)).abs() < EPS);
        assert!(p.is_spacelike());
        assert!(!p.is_timelike());
        assert!(!p.is_lightlike());
    }

    #[test]
    fn test_norm_sq_lightlike() {
        // t=1, x=1 → 1 - 1 = 0
        let p = SpacetimePoint::new(1.0, 1.0);
        assert!(p.norm_sq().abs() < EPS);
        assert!(p.is_lightlike());
        assert!(!p.is_timelike());
        assert!(!p.is_spacelike());
    }

    #[test]
    fn test_norm_sq_origin_is_lightlike() {
        let p = SpacetimePoint::new(0.0, 0.0);
        assert!(p.is_lightlike());
    }

    // ── LorentzTransform::is_identity ─────────────────────────────────────────

    #[test]
    fn test_is_identity_beta_zero() {
        let lt = LorentzTransform::new(0.0).unwrap();
        assert!(lt.is_identity());
    }

    #[test]
    fn test_is_not_identity_nonzero_beta() {
        let lt = LorentzTransform::new(0.5).unwrap();
        assert!(!lt.is_identity());
    }

    #[test]
    fn test_is_identity_empty_boost_chain() {
        let lt = LorentzTransform::boost_chain(&[]).unwrap();
        assert!(lt.is_identity());
    }

    // ── LorentzTransform::beta_from_gamma ─────────────────────────────────────

    #[test]
    fn test_beta_from_gamma_identity() {
        // gamma=1.0 → beta=0.0
        let beta = LorentzTransform::beta_from_gamma(1.0).unwrap();
        assert!(approx_eq(beta, 0.0));
    }

    #[test]
    fn test_beta_from_gamma_roundtrip() {
        let lt = LorentzTransform::new(0.6).unwrap();
        let recovered = LorentzTransform::beta_from_gamma(lt.gamma()).unwrap();
        assert!(approx_eq(recovered, 0.6));
    }

    #[test]
    fn test_beta_from_gamma_invalid_rejected() {
        assert!(LorentzTransform::beta_from_gamma(0.5).is_err()); // < 1
        assert!(LorentzTransform::beta_from_gamma(f64::NAN).is_err());
        assert!(LorentzTransform::beta_from_gamma(-1.0).is_err());
    }

    // ── LorentzTransform::from_rapidity ───────────────────────────────────────

    #[test]
    fn test_from_rapidity_zero_is_identity() {
        let lt = LorentzTransform::from_rapidity(0.0).unwrap();
        assert!(lt.is_identity());
    }

    #[test]
    fn test_from_rapidity_positive_gives_valid_beta() {
        // eta = 0.5 → beta = tanh(0.5) ≈ 0.4621
        let lt = LorentzTransform::from_rapidity(0.5).unwrap();
        assert!((lt.beta() - 0.5_f64.tanh()).abs() < EPS);
    }

    #[test]
    fn test_from_rapidity_infinite_rejected() {
        assert!(LorentzTransform::from_rapidity(f64::INFINITY).is_err());
        assert!(LorentzTransform::from_rapidity(f64::NEG_INFINITY).is_err());
        assert!(LorentzTransform::from_rapidity(f64::NAN).is_err());
    }

    // ── SpacetimePoint::distance_to ───────────────────────────────────────────

    #[test]
    fn test_distance_to_timelike_separation() {
        // t=3, x=0 vs t=0, x=0 → Δt=3, Δx=0 → norm_sq=9 → dist=3
        let a = SpacetimePoint::new(0.0, 0.0);
        let b = SpacetimePoint::new(3.0, 0.0);
        assert!((a.distance_to(b) - 3.0).abs() < EPS);
    }

    #[test]
    fn test_distance_to_spacelike_separation() {
        // t=0 vs x=4 → norm_sq=0-16=-16 → dist=4
        let a = SpacetimePoint::new(0.0, 0.0);
        let b = SpacetimePoint::new(0.0, 4.0);
        assert!((a.distance_to(b) - 4.0).abs() < EPS);
    }

    #[test]
    fn test_distance_to_same_point_is_zero() {
        let p = SpacetimePoint::new(2.0, 3.0);
        assert!(p.distance_to(p).abs() < EPS);
    }

    // ── LorentzTransform::gamma_at ────────────────────────────────────────────

    #[test]
    fn test_gamma_at_zero_is_one() {
        assert!((LorentzTransform::gamma_at(0.0) - 1.0).abs() < EPS);
    }

    #[test]
    fn test_gamma_at_matches_constructor_gamma() {
        let lt = LorentzTransform::new(0.6).unwrap();
        let expected = lt.gamma();
        let computed = LorentzTransform::gamma_at(0.6);
        assert!((computed - expected).abs() < EPS);
    }

    #[test]
    fn test_gamma_at_one_is_infinite() {
        assert!(LorentzTransform::gamma_at(1.0).is_infinite());
    }

    #[test]
    fn test_gamma_at_above_one_is_nan() {
        assert!(LorentzTransform::gamma_at(1.1).is_nan());
    }

    #[test]
    fn test_from_velocity_matches_beta_ratio() {
        // v = 0.6c → beta = 0.6
        let t = LorentzTransform::from_velocity(0.6, 1.0).unwrap();
        assert!((t.beta() - 0.6).abs() < 1e-12);
    }

    #[test]
    fn test_from_velocity_zero_c_returns_error() {
        assert!(matches!(
            LorentzTransform::from_velocity(0.5, 0.0),
            Err(StreamError::LorentzConfigError { .. })
        ));
    }

    #[test]
    fn test_from_velocity_non_finite_returns_error() {
        assert!(LorentzTransform::from_velocity(f64::INFINITY, 1.0).is_err());
        assert!(LorentzTransform::from_velocity(0.5, f64::NAN).is_err());
    }

    #[test]
    fn test_from_velocity_superluminal_returns_error() {
        // v > c → |beta| > 1 → should fail
        assert!(LorentzTransform::from_velocity(1.5, 1.0).is_err());
    }

    // ── LorentzTransform::relativistic_momentum ───────────────────────────────

    #[test]
    fn test_relativistic_momentum_zero_beta_is_zero() {
        let lt = LorentzTransform::new(0.0).unwrap();
        assert!(approx_eq(lt.relativistic_momentum(1.0), 0.0));
    }

    #[test]
    fn test_relativistic_momentum_known_value() {
        // beta=0.6, gamma=1.25 → p = mass * gamma * beta = 2.0 * 1.25 * 0.6 = 1.5
        let lt = LorentzTransform::new(0.6).unwrap();
        assert!((lt.relativistic_momentum(2.0) - 1.5).abs() < 1e-9);
    }

    #[test]
    fn test_relativistic_momentum_scales_with_mass() {
        let lt = LorentzTransform::new(0.6).unwrap();
        let p1 = lt.relativistic_momentum(1.0);
        let p2 = lt.relativistic_momentum(2.0);
        assert!((p2 - 2.0 * p1).abs() < 1e-9);
    }

    // ── LorentzTransform::kinetic_energy_ratio ────────────────────────────────

    #[test]
    fn test_kinetic_energy_ratio_zero_at_rest() {
        let lt = LorentzTransform::new(0.0).unwrap();
        assert!(approx_eq(lt.kinetic_energy_ratio(), 0.0));
    }

    #[test]
    fn test_kinetic_energy_ratio_known_value() {
        // beta=0.6 → gamma=1.25 → ratio = 1.25 - 1 = 0.25
        let lt = LorentzTransform::new(0.6).unwrap();
        assert!((lt.kinetic_energy_ratio() - 0.25).abs() < 1e-9);
    }

    #[test]
    fn test_kinetic_energy_ratio_positive_for_nonzero_beta() {
        let lt = LorentzTransform::new(0.8).unwrap();
        assert!(lt.kinetic_energy_ratio() > 0.0);
    }

    #[test]
    fn test_composition_zero_with_zero_is_zero() {
        let t1 = LorentzTransform::new(0.0).unwrap();
        let t2 = LorentzTransform::new(0.0).unwrap();
        let composed = t1.composition(&t2).unwrap();
        assert!(composed.beta().abs() < 1e-12);
    }

    #[test]
    fn test_composition_with_opposite_is_near_zero() {
        let t1 = LorentzTransform::new(0.6).unwrap();
        let t2 = t1.inverse(); // beta = -0.6
        let composed = t1.composition(&t2).unwrap();
        // (0.6 + (-0.6)) / (1 + 0.6*(-0.6)) = 0 / 0.64 = 0
        assert!(composed.beta().abs() < 1e-12);
    }

    #[test]
    fn test_composition_velocity_addition_known_value() {
        // 0.5c + 0.5c = (0.5+0.5)/(1+0.25) = 1.0/1.25 = 0.8
        let t1 = LorentzTransform::new(0.5).unwrap();
        let t2 = LorentzTransform::new(0.5).unwrap();
        let composed = t1.composition(&t2).unwrap();
        assert!((composed.beta() - 0.8).abs() < 1e-12);
    }

    // ── LorentzTransform::time_dilation_factor ────────────────────────────────

    #[test]
    fn test_time_dilation_factor_one_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!((t.time_dilation_factor() - 1.0).abs() < 1e-12);
    }

    #[test]
    fn test_time_dilation_factor_equals_gamma() {
        let t = LorentzTransform::new(0.6).unwrap();
        assert!((t.time_dilation_factor() - t.gamma()).abs() < 1e-12);
    }

    #[test]
    fn test_time_dilation_factor_greater_than_one_for_nonzero_beta() {
        let t = LorentzTransform::new(0.8).unwrap();
        assert!(t.time_dilation_factor() > 1.0);
    }

    // --- time_contraction ---

    #[test]
    fn test_time_contraction_inverse_of_dilate_time() {
        let t = LorentzTransform::new(0.6).unwrap();
        let original = 100.0_f64;
        let dilated = t.dilate_time(original);
        let contracted = t.time_contraction(dilated);
        assert!((contracted - original).abs() < 1e-10);
    }

    #[test]
    fn test_time_contraction_at_zero_beta_equals_input() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!((t.time_contraction(42.0) - 42.0).abs() < 1e-12);
    }

    #[test]
    fn test_time_contraction_less_than_input_for_nonzero_beta() {
        let t = LorentzTransform::new(0.8).unwrap();
        assert!(t.time_contraction(100.0) < 100.0);
    }

    // ── LorentzTransform::length_contraction_factor ───────────────────────────

    #[test]
    fn test_length_contraction_factor_one_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!((t.length_contraction_factor() - 1.0).abs() < 1e-12);
    }

    #[test]
    fn test_length_contraction_factor_is_reciprocal_of_gamma() {
        let t = LorentzTransform::new(0.6).unwrap();
        assert!((t.length_contraction_factor() - 1.0 / t.gamma()).abs() < 1e-12);
    }

    #[test]
    fn test_length_contraction_factor_less_than_one_for_nonzero_beta() {
        let t = LorentzTransform::new(0.9).unwrap();
        assert!(t.length_contraction_factor() < 1.0);
    }

    // ── LorentzTransform::proper_velocity ────────────────────────────────────

    #[test]
    fn test_proper_velocity_zero_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!((t.proper_velocity() - 0.0).abs() < 1e-12);
    }

    #[test]
    fn test_proper_velocity_equals_beta_times_gamma() {
        let t = LorentzTransform::new(0.6).unwrap();
        assert!((t.proper_velocity() - t.beta() * t.gamma()).abs() < 1e-12);
    }

    #[test]
    fn test_proper_velocity_greater_than_beta_for_high_speed() {
        // At v=0.8c, gamma≈1.667, so proper_velocity = 0.8*1.667 ≈ 1.333 > 0.8
        let t = LorentzTransform::new(0.8).unwrap();
        assert!(t.proper_velocity() > t.beta());
    }

    // --- is_ultrarelativistic / momentum_factor ---

    #[test]
    fn test_is_ultrarelativistic_true_above_0_9() {
        let t = LorentzTransform::new(0.95).unwrap();
        assert!(t.is_ultrarelativistic());
    }

    #[test]
    fn test_is_ultrarelativistic_false_below_0_9() {
        let t = LorentzTransform::new(0.5).unwrap();
        assert!(!t.is_ultrarelativistic());
    }

    #[test]
    fn test_is_ultrarelativistic_false_at_exactly_0_9() {
        let t = LorentzTransform::new(0.9).unwrap();
        assert!(!t.is_ultrarelativistic()); // strictly greater than 0.9
    }

    #[test]
    fn test_momentum_factor_zero_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!(t.momentum_factor().abs() < 1e-12);
    }

    #[test]
    fn test_momentum_factor_equals_gamma_times_beta() {
        let t = LorentzTransform::new(0.6).unwrap();
        assert!((t.momentum_factor() - t.gamma() * t.beta()).abs() < 1e-12);
    }

    // --- relativistic_energy ---

    #[test]
    fn test_relativistic_energy_equals_rest_mass_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!((t.relativistic_energy(1.0) - 1.0).abs() < 1e-12);
    }

    #[test]
    fn test_relativistic_energy_greater_than_rest_mass_for_moving_particle() {
        let t = LorentzTransform::new(0.6).unwrap();
        assert!(t.relativistic_energy(1.0) > 1.0);
    }

    #[test]
    fn test_relativistic_energy_equals_gamma_times_rest_mass() {
        let t = LorentzTransform::new(0.8).unwrap();
        let m = 2.5;
        assert!((t.relativistic_energy(m) - t.gamma() * m).abs() < 1e-12);
    }

    // --- kinetic_energy ---

    #[test]
    fn test_kinetic_energy_zero_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!(t.kinetic_energy(1.0).abs() < 1e-12);
    }

    #[test]
    fn test_kinetic_energy_positive_for_moving_particle() {
        let t = LorentzTransform::new(0.6).unwrap();
        assert!(t.kinetic_energy(1.0) > 0.0);
    }

    #[test]
    fn test_kinetic_energy_equals_total_minus_rest() {
        let t = LorentzTransform::new(0.8).unwrap();
        let m = 3.0;
        let ke = t.kinetic_energy(m);
        let total = t.relativistic_energy(m);
        assert!((ke - (total - m)).abs() < 1e-12);
    }

    // --- four_velocity_time ---

    #[test]
    fn test_four_velocity_time_equals_gamma() {
        let t = LorentzTransform::new(0.6).unwrap();
        assert!((t.four_velocity_time() - t.gamma()).abs() < 1e-12);
    }

    #[test]
    fn test_four_velocity_time_one_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!((t.four_velocity_time() - 1.0).abs() < 1e-12);
    }

    #[test]
    fn test_four_velocity_time_greater_than_one_when_moving() {
        let t = LorentzTransform::new(0.5).unwrap();
        assert!(t.four_velocity_time() > 1.0);
    }

    // --- LorentzTransform::proper_time_dilation ---
    #[test]
    fn test_proper_time_dilation_at_rest_equals_dt() {
        let t = LorentzTransform::new(0.0).unwrap(); // gamma = 1
        assert!((t.proper_time_dilation(10.0) - 10.0).abs() < 1e-10);
    }

    #[test]
    fn test_proper_time_dilation_less_than_dt_when_moving() {
        let t = LorentzTransform::new(0.6).unwrap(); // gamma ≈ 1.25
        let proper = t.proper_time_dilation(10.0);
        assert!(proper < 10.0, "moving clock should run slow: {proper}");
    }

    #[test]
    fn test_proper_time_dilation_approaches_zero_at_high_speed() {
        let t = LorentzTransform::new(0.9999).unwrap();
        let proper = t.proper_time_dilation(1.0);
        assert!(proper < 0.02, "expected near-zero proper time at 0.9999c: {proper}");
    }

    // --- LorentzTransform::beta_from_rapidity ---
    #[test]
    fn test_beta_from_rapidity_zero_rapidity_gives_zero_beta() {
        assert!((LorentzTransform::beta_from_rapidity(0.0)).abs() < 1e-12);
    }

    #[test]
    fn test_beta_from_rapidity_roundtrip_with_rapidity() {
        let t = LorentzTransform::new(0.7).unwrap();
        let eta = t.rapidity();
        let beta = LorentzTransform::beta_from_rapidity(eta);
        assert!((beta - 0.7).abs() < 1e-10, "roundtrip failed: {beta}");
    }

    #[test]
    fn test_beta_from_rapidity_bounded_below_one() {
        // Rapidity of 10 → very close to c but below 1.0
        let beta = LorentzTransform::beta_from_rapidity(10.0);
        assert!(beta < 1.0 && beta > 0.9999);
    }

    // ── LorentzTransform::rapidity ────────────────────────────────────────────

    #[test]
    fn test_rapidity_zero_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!(t.rapidity().abs() < 1e-12);
    }

    #[test]
    fn test_rapidity_equals_atanh_beta() {
        let t = LorentzTransform::new(0.5).unwrap();
        assert!((t.rapidity() - 0.5_f64.atanh()).abs() < 1e-12);
    }

    #[test]
    fn test_rapidity_positive_for_nonzero_beta() {
        let t = LorentzTransform::new(0.8).unwrap();
        assert!(t.rapidity() > 0.0);
    }

    // ── LorentzTransform::doppler_factor ──────────────────────────────────────

    #[test]
    fn test_doppler_factor_one_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!((t.doppler_factor() - 1.0).abs() < 1e-12);
    }

    #[test]
    fn test_doppler_factor_greater_than_one_when_approaching() {
        let t = LorentzTransform::new(0.6).unwrap();
        // sqrt((1.6)/(0.4)) = sqrt(4) = 2
        assert!((t.doppler_factor() - 2.0).abs() < 1e-10);
    }

    #[test]
    fn test_doppler_factor_inverse_of_receding() {
        let t1 = LorentzTransform::new(0.6).unwrap();
        let t2 = LorentzTransform::new(0.6).unwrap();
        // Forward and inverse doppler factors multiply to 1
        let fwd = t1.doppler_factor();
        let rev = 1.0 / t2.doppler_factor();
        assert!((fwd - 1.0 / rev).abs() < 1e-10);
    }

    // ── LorentzTransform::aberration_angle ────────────────────────────────────

    #[test]
    fn test_aberration_angle_at_rest_unchanged() {
        let t = LorentzTransform::new(0.0).unwrap();
        let angle_in = std::f64::consts::PI / 3.0; // 60°
        let cos_in = angle_in.cos();
        let angle_out = t.aberration_angle(cos_in);
        assert!((angle_out - angle_in).abs() < 1e-12);
    }

    #[test]
    fn test_aberration_angle_head_on_unchanged() {
        let t = LorentzTransform::new(0.5).unwrap();
        // cos(0) = 1 → head-on → still 0 angle
        let angle_out = t.aberration_angle(1.0);
        assert!(angle_out.abs() < 1e-12);
    }

    #[test]
    fn test_aberration_angle_range_zero_to_pi() {
        let t = LorentzTransform::new(0.8).unwrap();
        let angle = t.aberration_angle(0.0);
        assert!(angle >= 0.0 && angle <= std::f64::consts::PI);
    }

    // ── LorentzTransform::relativistic_mass / energy_ratio ──────────────────

    #[test]
    fn test_relativistic_mass_at_rest_equals_rest_mass() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!((t.relativistic_mass(1.0) - 1.0).abs() < 1e-12);
    }

    #[test]
    fn test_relativistic_mass_increases_with_speed() {
        let t = LorentzTransform::new(0.6).unwrap();
        // gamma(0.6) = 1/sqrt(1-0.36) = 1/sqrt(0.64) = 1/0.8 = 1.25
        assert!((t.relativistic_mass(1.0) - 1.25).abs() < 1e-10);
    }

    #[test]
    fn test_energy_ratio_zero_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!(t.energy_ratio().abs() < 1e-12);
    }

    #[test]
    fn test_energy_ratio_positive_for_nonzero_beta() {
        let t = LorentzTransform::new(0.6).unwrap();
        // gamma(0.6) = 1.25 → energy_ratio = 0.25
        assert!((t.energy_ratio() - 0.25).abs() < 1e-10);
    }

    // ── LorentzTransform::momentum_ratio / is_ultra_relativistic ────────────

    #[test]
    fn test_momentum_ratio_zero_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!(t.momentum_ratio().abs() < 1e-12);
    }

    #[test]
    fn test_momentum_ratio_correct_at_0_6() {
        let t = LorentzTransform::new(0.6).unwrap();
        // gamma=1.25, beta=0.6 → momentum_ratio = 0.75
        assert!((t.momentum_ratio() - 0.75).abs() < 1e-10);
    }

    #[test]
    fn test_is_ultra_relativistic_true_above_0_9() {
        let t = LorentzTransform::new(0.95).unwrap();
        assert!(t.is_ultra_relativistic());
    }

    #[test]
    fn test_is_ultra_relativistic_false_below_0_9() {
        let t = LorentzTransform::new(0.8).unwrap();
        assert!(!t.is_ultra_relativistic());
    }

    #[test]
    fn test_is_ultra_relativistic_false_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!(!t.is_ultra_relativistic());
    }

    // ── LorentzTransform::lorentz_factor_approx ──────────────────────────────

    #[test]
    fn test_lorentz_factor_approx_equals_one_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!((t.lorentz_factor_approx() - 1.0).abs() < 1e-12);
    }

    #[test]
    fn test_lorentz_factor_approx_close_for_small_beta() {
        let t = LorentzTransform::new(0.1).unwrap();
        // Exact gamma = 1/sqrt(1-0.01) ≈ 1.005037, approx = 1 + 0.005 = 1.005
        let approx = t.lorentz_factor_approx();
        let exact = t.gamma();
        assert!((approx - exact).abs() < 0.001);
    }

    #[test]
    fn test_lorentz_factor_approx_always_gte_one() {
        let t = LorentzTransform::new(0.5).unwrap();
        assert!(t.lorentz_factor_approx() >= 1.0);
    }

    // ── LorentzTransform::velocity_ratio ─────────────────────────────────────

    #[test]
    fn test_velocity_ratio_equals_one_for_same_beta() {
        let t = LorentzTransform::new(0.6).unwrap();
        assert!((t.velocity_ratio(&t) - 1.0).abs() < 1e-12);
    }

    #[test]
    fn test_velocity_ratio_correct() {
        let a = LorentzTransform::new(0.6).unwrap();
        let b = LorentzTransform::new(0.3).unwrap();
        assert!((a.velocity_ratio(&b) - 2.0).abs() < 1e-12);
    }

    #[test]
    fn test_velocity_ratio_less_than_one_when_slower() {
        let a = LorentzTransform::new(0.3).unwrap();
        let b = LorentzTransform::new(0.6).unwrap();
        assert!(a.velocity_ratio(&b) < 1.0);
    }

    // ── LorentzTransform::proper_length ──────────────────────────────────────

    #[test]
    fn test_proper_length_at_rest_equals_observed() {
        let t = LorentzTransform::new(0.0).unwrap();
        // beta=0 → gamma=1 → proper_length = observed
        assert!((t.proper_length(10.0) - 10.0).abs() < 1e-10);
    }

    #[test]
    fn test_proper_length_greater_than_observed_when_moving() {
        let t = LorentzTransform::new(0.6).unwrap();
        // gamma=1.25 → proper_length = 1.25 * observed
        assert!((t.proper_length(8.0) - 10.0).abs() < 1e-9);
    }

    // ── LorentzTransform::length_contraction ─────────────────────────────────

    #[test]
    fn test_length_contraction_at_rest_equals_rest_length() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert!((t.length_contraction(10.0) - 10.0).abs() < 1e-10);
    }

    #[test]
    fn test_length_contraction_shorter_when_moving() {
        let t = LorentzTransform::new(0.6).unwrap();
        // gamma=1.25 → contracted = 10/1.25 = 8
        assert!((t.length_contraction(10.0) - 8.0).abs() < 1e-9);
    }

    #[test]
    fn test_length_contraction_proper_length_roundtrip() {
        let t = LorentzTransform::new(0.8).unwrap();
        let rest = 100.0;
        let contracted = t.length_contraction(rest);
        let recovered = t.proper_length(contracted);
        assert!((recovered - rest).abs() < 1e-9);
    }

    // ── beta_times_gamma ──────────────────────────────────────────────────────

    #[test]
    fn test_beta_times_gamma_zero_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        assert_eq!(t.beta_times_gamma(), 0.0);
    }

    #[test]
    fn test_beta_times_gamma_positive_for_nonzero_velocity() {
        let t = LorentzTransform::new(0.6).unwrap();
        // beta=0.6, gamma=1.25 → beta*gamma=0.75
        let bg = t.beta_times_gamma();
        assert!((bg - 0.75).abs() < 1e-9);
    }

    #[test]
    fn test_beta_times_gamma_increases_with_velocity() {
        let t1 = LorentzTransform::new(0.5).unwrap();
        let t2 = LorentzTransform::new(0.9).unwrap();
        assert!(t2.beta_times_gamma() > t1.beta_times_gamma());
    }

    // ── energy_momentum_invariant ─────────────────────────────────────────────

    #[test]
    fn test_energy_momentum_invariant_equals_mass_squared_at_rest() {
        let t = LorentzTransform::new(0.0).unwrap();
        let mass = 2.0;
        let inv = t.energy_momentum_invariant(mass);
        assert!((inv - mass * mass).abs() < 1e-9);
    }

    #[test]
    fn test_energy_momentum_invariant_equals_mass_squared_at_velocity() {
        let t = LorentzTransform::new(0.8).unwrap();
        let mass = 3.0;
        let inv = t.energy_momentum_invariant(mass);
        assert!((inv - mass * mass).abs() < 1e-9);
    }
}