English
Given decidable linear order on α, exists an estimator data for the first component of a product a.prod b under appropriate WellFoundedGT assumptions.
Русский
При заданном-DecidableLT на α существует оцениватель для первого компонента произведения a.prod b при надлежащих предпосылках WellFoundedGT.
LaTeX
$$instEstimatorDataFstProdOfDecidableLTOfWellFoundedGTSubtypeProdLe ...$$
Lean4
instance {a : Thunk α} [Estimator a ε] : WellFoundedGT (range (bound a : ε → α)) :=
let f : range (bound a : ε → α) ↪o { x // x ≤ a.get } :=
Subtype.orderEmbedding (by rintro _ ⟨e, rfl⟩; exact Estimator.bound_le e)
f.wellFoundedGT