File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -74,7 +74,7 @@ def elementwiseThms : List Name :=
7474/--
7575Given an equation `f = g` between morphisms `X ⟶ Y` in a category `C`
7676(possibly after a `∀` binder), produce the equation `∀ (x : X), f x = g x` or
77- `∀ FC CC _ [ConreteCategory C FC] (x : X), f x = g x` as needed (after the `∀` binder), but
77+ `∀ FC CC _ [ConcreteCategory C FC] (x : X), f x = g x` as needed (after the `∀` binder), but
7878with compositions fully right associated and identities removed.
7979
8080Returns the proof of the new theorem along with (optionally) a new level metavariable
Original file line number Diff line number Diff line change @@ -189,7 +189,7 @@ example {α β : Type} (f : β → α) {p : α → Prop} :
189189 refine Exists.intro (f b) ?_
190190 -- then we traverse `newBody` and goal simultaneously
191191 refine And.intro ?_ ?_
192- -- at branches outside the path `h` must concide with goal
192+ -- at branches outside the path `h` must coincide with goal
193193 · replace h := h.left
194194 exact h
195195 -- inside path we substitute variables from `fvars` into existential quantifiers.
@@ -341,7 +341,7 @@ example {α β : Type} (f : β → α) {p : α → Prop} :
341341 have h' := ha
342342 refine Exists.intro b ?_
343343 refine And.intro ?_ ?_
344- -- outside the path goal must concide with `h_eq ▸ h'`
344+ -- outside the path goal must coincide with `h_eq ▸ h'`
345345 · replace h' := h'.left
346346 exact Eq.mp (congrArg (fun t ↦ p t) h_eq) h'
347347 -- inside the path:
Original file line number Diff line number Diff line change @@ -141,7 +141,7 @@ private def fixBinderInfos (bis : List BinderInfo) (e : Expr) : Expr :=
141141/-
142142In the implementation of `reorderForall` and `reorderLambda` we use metavariables.
143143To reorder the arguments in one, we assign it to a reordered new metavariable.
144- This trick lets us avoid traversing the expression manually when handling recurive reorderings.
144+ This trick lets us avoid traversing the expression manually when handling recursive reorderings.
145145Instead, we implicitly rely on `instantiateMVars`.
146146-/
147147mutual
@@ -196,7 +196,7 @@ private def depForallDepth : Expr → Nat
196196type `e₁` to type `e₂`. If there is no good guess, default to `[]`.
197197The heuristic that we use is to compare the conclusions of `e₁` and `e₂`,
198198and to observe which variables are swapped.
199- We also apply this heuristic recurisvely in hypotheses. -/
199+ We also apply this heuristic recursively in hypotheses. -/
200200partial def guessReorder (src tgt : Expr) : MetaM Reorder := withReducible do
201201 let src ← whnf src; let tgt ← whnf tgt
202202 let depth := depForallDepth src
You can’t perform that action at this time.
0 commit comments