Skip to content

Commit 807c440

Browse files
committed
test changes: TODO double-check!
1 parent a959ca1 commit 807c440

File tree

1 file changed

+5
-24
lines changed
  • MathlibTest/DifferentialGeometry/Notation

1 file changed

+5
-24
lines changed

MathlibTest/DifferentialGeometry/Notation/Basic.lean

Lines changed: 5 additions & 24 deletions
Original file line numberDiff line numberDiff line change
@@ -136,21 +136,11 @@ example : (fun m ↦ (X m : TangentBundle I M)) = (fun m ↦ TotalSpace.mk' E m
136136
#check T% (fun x ↦ X x) x
137137

138138
-- Applying the same elaborator twice errors.
139-
/--
140-
error: could not find a `FiberBundle` instance on `TotalSpace E`:
141-
`fun m ↦ ⟨m, X m⟩` is a function into `TotalSpace E`
142-
143-
hint: you may be missing suitable typeclass assumptions
144-
-/
139+
/-- info: fun m ↦ ⟨m, X m⟩ : M → TotalSpace E (TangentSpace I) -/
145140
#guard_msgs in
146141
#check (T% (T% X))
147142

148-
/--
149-
error: could not find a `FiberBundle` instance on `TotalSpace E`:
150-
`fun m ↦ ⟨m, X m⟩` is a function into `TotalSpace E`
151-
152-
hint: you may be missing suitable typeclass assumptions
153-
-/
143+
/-- info: (fun m ↦ ⟨m, X m⟩) x : TotalSpace E (TangentSpace I) -/
154144
#guard_msgs in
155145
#check (T% (T% X)) x
156146

@@ -159,7 +149,7 @@ section
159149

160150
variable {B F Z : Type*} [TopologicalSpace B] [TopologicalSpace F]
161151
{E : B → Type*} [TopologicalSpace (TotalSpace F E)] (σ : (b : B) → E b)
162-
/-- info: fun b ↦ ⟨b, σ b⟩ : B → TotalSpace F E -/
152+
/-- info: σ : (b : B)E b -/
163153
#guard_msgs in
164154
#check T% σ
165155

@@ -170,12 +160,7 @@ section
170160

171161
variable {B F Z : Type*} [TopologicalSpace B] [TopologicalSpace F]
172162
{E : B → Type*} (σ : (b : B) → E b)
173-
/--
174-
error: could not find a `FiberBundle` instance on `E`:
175-
`σ` is a function into `E`
176-
177-
hint: you may be missing suitable typeclass assumptions
178-
-/
163+
/-- info: σ : (b : B) → E b -/
179164
#guard_msgs in
180165
#check T% σ
181166

@@ -1353,11 +1338,7 @@ trace: [Elab.DiffGeo.MDiff] Finding a model with corners for: `Unit`
13531338
#check mfderiv% f
13541339

13551340
set_option pp.notation true in
1356-
/--
1357-
info: fun a ↦ ⟨a, f a⟩ : Unit → TotalSpace Unit (Trivial Unit Unit)
1358-
---
1359-
trace: [Elab.DiffGeo.TotalSpaceMk] Section of a trivial bundle as a non-dependent function
1360-
-/
1341+
/-- info: fun a ↦ ⟨a, f a⟩ : Unit → TotalSpace Unit (Trivial Unit Unit) -/
13611342
#guard_msgs in
13621343
#check T% f
13631344

0 commit comments

Comments
 (0)