def
definition
reciprocal
show as:
view math explainer →
open explainer
Generate a durable explainer page for this declaration.
open lean source
IndisputableMonolith.Algebra.CostAlgebra on GitHub at line 798.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
used by
-
aestheticCost_zero_at_optimum -
canonicalRecognitionCostSystem_cost_one -
continuous_bijective_preserves_J_eq_id_or_inv -
CostMorphism -
eq_id_of_map_two_eq_two -
eq_id_or_reciprocal -
equivFinTwo -
equivZModTwo -
id -
J_at_one -
reciprocalAuto -
reciprocal_comp_reciprocal -
reciprocal_involution -
reciprocal_ne_id -
reciprocal_preserves_cost -
CanonicalCert -
cert -
tau0_pos -
alphaLock_numerical_bounds -
V_pos_off_vacuum -
aczel_kernel_ode -
PrimitiveCostHypotheses -
primitive_to_uniqueness_of_kernel -
dAlembert_cosh_solution_of_contDiff -
dAlembert_to_ODE_hypothesis_of_contDiff -
dAlembert_cosh_solution_aczel -
dAlembert_cosh_solution_of_log_curvature -
SatisfiesCompositionLaw -
dAlembert_cosh_solution_aczel -
Jcost_continuous_pos -
Jcost_is_calibrated -
extraction_cost_strict_minimum -
comparison_symm -
F_div_swap_of_P_symmetric -
substitutivity_forces_factorization -
public_cost_layer -
PublicCostLayer -
concrete_implies_no_alternatives -
totalJcost_at_geomean_symmetric -
add_event
formal source
795 rfl⟩
796
797/-- The reciprocal automorphism. -/
798noncomputable def reciprocal : JAut :=
799 ⟨posInv, by
800 constructor
801 · intro x y
802 apply Subtype.ext
803 simp [posMul, posInv, mul_comm]
804 · intro x
805 simpa [posInv] using (J_reciprocal x.1 x.2).symm⟩
806
807/-- Composition of `J`-automorphisms. -/
808def comp (g f : JAut) : JAut :=
809 ⟨fun x => g (f x), by
810 constructor
811 · intro x y
812 change g (f (posMul x y)) = posMul (g (f x)) (g (f y))
813 rw [f.multiplicative x y, g.multiplicative (f x) (f y)]
814 · intro x
815 rw [g.preserves_cost (f x), f.preserves_cost x]⟩
816
817@[simp] theorem comp_apply (g f : JAut) (x : PosReal) : comp g f x = g (f x) := rfl
818
819@[simp] theorem comp_id (f : JAut) : comp id f = f := by
820 apply JAut.ext
821 intro x
822 rfl
823
824@[simp] theorem id_comp (f : JAut) : comp f id = f := by
825 apply JAut.ext
826 intro x
827 rfl
828