Skip to content

Commit de2d276

Browse files
committed
deprecations
1 parent 6468bf6 commit de2d276

File tree

3 files changed

+3
-4
lines changed

3 files changed

+3
-4
lines changed

ProofWidgets/Demos/Conv.lean

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -300,7 +300,7 @@ private def insertAnywhereElse (stx : Syntax) (pathBeforeConvParam : List Nat) (
300300
| false => List.append (argList.take (pathAfterConv.head! + 1) ) (newNode::(argList.drop (pathAfterConv.head! + 1)))
301301
let newPath := match entersMerged with
302302
| true => pathBeforeConvParam ++ (pathAfterConvParam.take 4)
303-
| false => pathBeforeConvParam ++ (pathAfterConvParam.take 3) ++ [(pathAfterConvParam.get! 3) + 2]
303+
| false => pathBeforeConvParam ++ (pathAfterConvParam.take 3) ++ [pathAfterConvParam[3]! + 2]
304304

305305
t := t.setCur (t.cur.setArgs newArgList.toArray)
306306
while t.parents.size > 0 do

ProofWidgets/Demos/Dynkin.lean

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -81,7 +81,7 @@ def cartanMatrix.E₈ : Matrix (Fin 8) (Fin 8) Int :=
8181
[ 0, 0, 0, -1, 2, -1, 0, 0],
8282
[ 0, 0, 0, 0, -1, 2, -1, 0],
8383
[ 0, 0, 0, 0, 0, -1, 2, -1],
84-
[ 0, 0, 0, 0, 0, 0, -1, 2]].get! i |>.get! j
84+
[ 0, 0, 0, 0, 0, 0, -1, 2]][i]![j]!
8585

8686
-- Place your cursor here
8787
#html cartanMatrix.E₈.toHtml

ProofWidgets/Demos/Venn.lean

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,3 @@
1-
import Lean.Data.HashMap
21
import Lean.Elab.Tactic
32
import ProofWidgets.Component.Panel.Basic
43
import ProofWidgets.Component.PenroseDiagram
@@ -58,7 +57,7 @@ def mkSetDiag (sub : String) (embeds : ExprEmbeds) : MetaM Html := do
5857

5958
def isSetGoal? (hyps : Array LocalDecl) : MetaM (Option Html) := do
6059
let mut sub := "AutoLabel All\n"
61-
let mut sets : Std.HashMap String Expr := .empty
60+
let mut sets : Std.HashMap String Expr :=
6261
for assm in hyps do
6362
let tp ← instantiateMVars assm.type
6463
if let some (S, T) := isSubsetPred? tp then

0 commit comments

Comments
 (0)