Unreleased --------- * Add `[eliminator]` attribute. It allows users to specify default recursor/eliminators for the `induction` and `cases` tactics. It is an alternative for the `using` notation. Example: ```lean @[eliminator] protected def recDiag {motive : Nat → Nat → Sort u} (zero_zero : motive 0 0) (succ_zero : (x : Nat) → motive x 0 → motive (x + 1) 0) (zero_succ : (y : Nat) → motive 0 y → motive 0 (y + 1)) (succ_succ : (x y : Nat) → motive x y → motive (x + 1) (y + 1)) (x y : Nat) : motive x y := let rec go : (x y : Nat) → motive x y | 0, 0 => zero_zero | x+1, 0 => succ_zero x (go x 0) | 0, y+1 => zero_succ y (go 0 y) | x+1, y+1 => succ_succ x y (go x y) go x y termination_by go x y => (x, y) def f (x y : Nat) := match x, y with | 0, 0 => 1 | x+1, 0 => f x 0 | 0, y+1 => f 0 y | x+1, y+1 => f x y termination_by f x y => (x, y) example (x y : Nat) : f x y > 0 := by induction x, y <;> simp [f, *] ``` * Add support for `casesOn` applications to structural and well-founded recursion modules. This feature is useful when writing definitions using tactics. Example: ```lean inductive Foo where | a | b | c | pair: Foo × Foo → Foo def Foo.deq (a b : Foo) : Decidable (a = b) := by cases a <;> cases b any_goals apply isFalse Foo.noConfusion any_goals apply isTrue rfl case pair a b => let (a₁, a₂) := a let (b₁, b₂) := b exact match deq a₁ b₁, deq a₂ b₂ with | isTrue h₁, isTrue h₂ => isTrue (by rw [h₁,h₂]) | isFalse h₁, _ => isFalse (fun h => by cases h; cases (h₁ rfl)) | _, isFalse h₂ => isFalse (fun h => by cases h; cases (h₂ rfl)) ``` * `Option` is again a monad. The auxiliary type `OptionM` has been removed. See [Zulip thread](https://leanprover.zulipchat.com/#narrow/stream/270676-lean4/topic/Do.20we.20still.20need.20OptionM.3F/near/279761084). * Improve `split` tactic. It used to fail on `match` expressions of the form `match h : e with ...` where `e` is not a free variable. The failure used to occur during generalization. * New encoding for `match`-expressions that use the `h :` notation for discriminants. The information is not lost during delaboration, and it is the foundation for a better `split` tactic. at delaboration time. Example: ```lean #print Nat.decEq /- protected def Nat.decEq : (n m : Nat) → Decidable (n = m) := fun n m => match h : Nat.beq n m with | true => isTrue (_ : n = m) | false => isFalse (_ : ¬n = m) -/ ``` * `exists` tactic is now takes a comma separated list of terms. * Add `dsimp` and `dsimp!` tactics. They guarantee the result term is definitionally equal, and only apply `rfl`-theorems. * Fix binder information for `match` patterns that use definitions tagged with `[matchPattern]` (e.g., `Nat.add`). We now have proper binder information for the variable `y` in the following example. ```lean def f (x : Nat) : Nat := match x with | 0 => 1 | y + 1 => y ``` * (Fix) the default value for structure fields may now depend on the structure parameters. Example: ```lean structure Something (i: Nat) where n1: Nat := 1 n2: Nat := 1 + i def s : Something 10 := {} example : s.n2 = 11 := rfl ``` * Apply `rfl` theorems at the `dsimp` auxiliary method used by `simp`. `dsimp` can be used anywhere in an expression because it preserves definitional equality. * Refine auto bound implicit feature. It does not consider anymore unbound variables that have the same name of a declaration being defined. Example: ```lean def f : f → Bool := -- Error at second `f` fun _ => true inductive Foo : List Foo → Type -- Error at second `Foo` | x : Foo [] ``` Before this refinement, the declarations above would be accepted and the second `f` and `Foo` would be treated as auto implicit variables. That is, `f : {f : Sort u} → f → Bool`, and `Foo : {Foo : Type u} → List Foo → Type`. * Fix syntax hightlighting for recursive declarations. Example ```lean inductive List (α : Type u) where | nil : List α -- `List` is not highlighted as a variable anymore | cons (head : α) (tail : List α) : List α def List.map (f : α → β) : List α → List β | [] => [] | a::as => f a :: map f as -- `map` is not highlighted as a variable anymore ``` * Add `autoUnfold` option to `Lean.Meta.Simp.Config`, and the following macros - `simp!` for `simp (config := { autoUnfold := true })` - `simp_arith!` for `simp (config := { autoUnfold := true, arith := true })` - `simp_all!` for `simp_all (config := { autoUnfold := true })` - `simp_all_arith!` for `simp_all (config := { autoUnfold := true, arith := true })` When the `autoUnfold` is set to true, `simp` tries to unfold the following kinds of definition - Recursive definitions defined by structural recursion. - Non-recursive definitions where the body is a `match`-expression. This kind of definition is only unfolded if the `match` can be reduced. Example: ```lean def append (as bs : List α) : List α := match as with | [] => bs | a :: as => a :: append as bs theorem append_nil (as : List α) : append as [] = as := by induction as <;> simp_all! theorem append_assoc (as bs cs : List α) : append (append as bs) cs = append as (append bs cs) := by induction as <;> simp_all! ``` * Add `save` tactic for creating checkpoints more conveniently. Example: ```lean example : := by tac_1 tac_2 save tac_3 ... ``` is equivalent to ```lean example : := by checkpoint tac_1 tac_2 tac_3 ... ``` * Remove support for `{}` annotation from inductive datatype contructors. This annotation was barely used, and we can control the binder information for parameter bindings using the new inductive family indices to parameter promotion. Example: the following declaration using `{}` ```lean inductive LE' (n : Nat) : Nat → Prop where | refl {} : LE' n n -- Want `n` to be explicit | succ : LE' n m → LE' n (m+1) ``` can now be written as ```lean inductive LE' : Nat → Nat → Prop where | refl (n : Nat) : LE' n n | succ : LE' n m → LE' n (m+1) ``` In both cases, the inductive family has one parameter and one index. Recall that the actual number of parameters can be retrieved using the command `#print`. * Remove support for `{}` annotation in the `structure` command. * Several improvements to LSP server. Examples: "jump to definition" in mutually recursive sections, fixed incorrect hover information in "match"-expression patterns, "jump to definition" for pattern variables, fixed auto-completion in function headers, etc. * In `macro ... xs:p* ...` and similar macro bindings of combinators, `xs` now has the correct type `Array Syntax` * Identifiers in syntax patterns now ignore macro scopes during matching. * Improve binder names for constructor auto implicit parameters. Example, given the inductive datatype ```lean inductive Member : α → List α → Type u | head : Member a (a::as) | tail : Member a bs → Member a (b::bs) ``` before: ```lean #check @Member.head -- @Member.head : {x : Type u_1} → {a : x} → {as : List x} → Member a (a :: as) ``` now: ```lean #check @Member.head -- @Member.head : {α : Type u_1} → {a : α} → {as : List α} → Member a (a :: as) ``` * Improve error message when constructor parameter universe level is too big. * Add support for `for h : i in [start:stop] do .. ` where `h : i ∈ [start:stop]`. This feature is useful for proving termination of functions such as: ```lean inductive Expr where | app (f : String) (args : Array Expr) def Expr.size (e : Expr) : Nat := Id.run do match e with | app f args => let mut sz := 1 for h : i in [: args.size] do -- h.upper : i < args.size sz := sz + size (args.get ⟨i, h.upper⟩) return sz ``` * Add tactic `case'`. It is similar to `case`, but does not admit the goal on failure. For example, the new tactic is useful when writing tactic scripts where we need to use `case'` at `first | ... | ...`, and we want to take the next alternative when `case'` fails. * Add tactic macro ```lean macro "stop" s:tacticSeq : tactic => `(repeat sorry) ``` See discussion on [Zulip](https://leanprover.zulipchat.com/#narrow/stream/270676-lean4/topic/Partial.20evaluation.20of.20a.20file). * When displaying goals, we do not display inaccessible proposition names if they do not have forward dependencies. We still display their types. For example, the goal ```lean case node.inl.node β : Type u_1 b : BinTree β k : Nat v : β left : Tree β key : Nat value : β right : Tree β ihl : BST left → Tree.find? (Tree.insert left k v) k = some v ihr : BST right → Tree.find? (Tree.insert right k v) k = some v h✝ : k < key a✝³ : BST left a✝² : ForallTree (fun k v => k < key) left a✝¹ : BST right a✝ : ForallTree (fun k v => key < k) right ⊢ BST left ``` is now displayed as ```lean case node.inl.node β : Type u_1 b : BinTree β k : Nat v : β left : Tree β key : Nat value : β right : Tree β ihl : BST left → Tree.find? (Tree.insert left k v) k = some v ihr : BST right → Tree.find? (Tree.insert right k v) k = some v : k < key : BST left : ForallTree (fun k v => k < key) left : BST right : ForallTree (fun k v => key < k) right ⊢ BST left ``` * The hypothesis name is now optional in the `by_cases` tactic. * [Fix inconsistency between `syntax` and kind names](https://github.com/leanprover/lean4/issues/1090). The node kinds `numLit`, `charLit`, `nameLit`, `strLit`, and `scientificLit` are now called `num`, `char`, `name`, `str`, and `scientific` respectively. Example: we now write ```lean macro_rules | `($n:num) => `("hello") ``` instead of ```lean macro_rules | `($n:numLit) => `("hello") ``` * (Experimental) New `checkpoint ` tactic for big interactive proofs. * Rename tactic `nativeDecide` => `native_decide`. * Antiquotations are now accepted in any syntax. The `incQuotDepth` `syntax` parser is therefore obsolete and has been removed. * Renamed tactic `nativeDecide` => `native_decide`. * "Cleanup" local context before elaborating a `match` alternative right-hand-side. Examples: ```lean example (x : Nat) : Nat := match g x with | (a, b) => _ -- Local context does not contain the auxiliary `_discr := g x` anymore example (x : Nat × Nat) (h : x.1 > 0) : f x > 0 := by match x with | (a, b) => _ -- Local context does not contain the `h✝ : x.fst > 0` anymore ``` * Improve `let`-pattern (and `have`-pattern) macro expansion. In the following example, ```lean example (x : Nat × Nat) : f x > 0 := by let (a, b) := x done ``` The resulting goal is now `... |- f (a, b) > 0` instead of `... |- f x > 0`. * Add cross-compiled [aarch64 Linux](https://github.com/leanprover/lean4/pull/1066) and [aarch64 macOS](https://github.com/leanprover/lean4/pull/1076) releases. * [Add tutorial-like examples to our documentation](https://github.com/leanprover/lean4/tree/master/doc/examples), rendered using LeanInk+Alectryon. v4.0.0-m4 (23 March 2022) --------- * `simp` now takes user-defined simp-attributes. You can define a new `simp` attribute by creating a file (e.g., `MySimp.lean`) containing ```lean import Lean open Lean.Meta initialize my_ext : SimpExtension ← registerSimpAttr `my_simp "my own simp attribute" ``` If you don't neet to acces `my_ext`, you can also use the macro ```lean import Lean register_simp_attr my_simp "my own simp attribute" ``` Recall that the new `simp` attribute is not active in the Lean file where it was defined. Here is a small example using the new feature. ```lean import MySimp def f (x : Nat) := x + 2 def g (x : Nat) := x + 1 @[my_simp] theorem f_eq : f x = x + 2 := rfl @[my_simp] theorem g_eq : g x = x + 1 := rfl example : f x + g x = 2*x + 3 := by simp_arith [my_simp] ``` * Extend `match` syntax: multiple left-hand-sides in a single alternative. Example: ```lean def fib : Nat → Nat | 0 | 1 => 1 | n+2 => fib n + fib (n+1) ``` This feature was discussed at [issue 371](https://github.com/leanprover/lean4/issues/371). It was implemented as a macro expansion. Thus, the following is accepted. ```lean inductive StrOrNum where | S (s : String) | I (i : Int) def StrOrNum.asString (x : StrOrNum) := match x with | I a | S a => toString a ``` * Improve `#eval` command. Now, when it fails to synthesize a `Lean.MetaEval` instance for the result type, it reduces the type and tries again. The following example now works without additional annotations ```lean def Foo := List Nat def test (x : Nat) : Foo := [x, x+1, x+2] #eval test 4 ``` * `rw` tactic can now apply auto-generated equation theorems for a given definition. Example: ```lean example (a : Nat) (h : n = 1) : [a].length = n := by rw [List.length] trace_state -- .. |- [].length + 1 = n rw [List.length] trace_state -- .. |- 0 + 1 = n rw [h] ``` * [Fuzzy matching for auto completion](https://github.com/leanprover/lean4/pull/1023) * Extend dot-notation `x.field` for arrow types. If type of `x` is an arrow, we look up for `Function.field`. For example, given `f : Nat → Nat` and `g : Nat → Nat`, `f.comp g` is now notation for `Function.comp f g`. * The new `.` notation is now also accepted where a function type is expected. ```lean example (xs : List Nat) : List Nat := .map .succ xs example (xs : List α) : Std.RBTree α ord := xs.foldl .insert ∅ ``` * [Add code folding support to the language server](https://github.com/leanprover/lean4/pull/1014). * Support notation `let := | ` in `do` blocks. * Remove support for "auto" `pure`. In the [Zulip thread](https://leanprover.zulipchat.com/#narrow/stream/270676-lean4/topic/for.2C.20unexpected.20need.20for.20type.20ascription/near/269083574), the consensus seemed to be that "auto" `pure` is more confusing than it's worth. * Remove restriction in `congr` theorems that all function arguments on the left-hand-side must be free variables. For example, the following theorem is now a valid `congr` theorem. ```lean @[congr] theorem dep_congr [DecidableEq ι] {p : ι → Set α} [∀ i, Inhabited (p i)] : ∀ {i j} (h : i = j) (x : p i) (y : α) (hx : x = y), Pi.single (f := (p ·)) i x = Pi.single (f := (p ·)) j ⟨y, hx ▸ h ▸ x.2⟩ := ``` * [Partially applied congruence theorems.](https://github.com/leanprover/lean4/issues/988) * Improve elaboration postponement heuristic when expected type is a metavariable. Lean now reduces the expected type before performing the test. * [Remove deprecated leanpkg](https://github.com/leanprover/lean4/pull/985) in favor of [Lake](https://github.com/leanprover/lake) now bundled with Lean. * Various improvements to go-to-definition & find-all-references accuracy. * Auto generated congruence lemmas with support for casts on proofs and `Decidable` instances (see [whishlist](https://github.com/leanprover/lean4/issues/988)). * Rename option `autoBoundImplicitLocal` => `autoImplicit`. * [Relax auto-implicit restrictions](https://github.com/leanprover/lean4/pull/1011). The command `set_option relaxedAutoImplicit false` disables the relaxations. * `contradiction` tactic now closes the goal if there is a `False.elim` application in the target. * Renamed tatic `byCases` => `by_cases` (motivation: enforcing naming convention). * Local instances occurring in patterns are now considered by the type class resolution procedure. Example: ```lean def concat : List ((α : Type) × ToString α × α) → String | [] => "" | ⟨_, _, a⟩ :: as => toString a ++ concat as ``` * Notation for providing the motive for `match` expressions has changed. before: ```lean match x, rfl : (y : Nat) → x = y → Nat with | 0, h => ... | x+1, h => ... ``` now: ```lean match (motive := (y : Nat) → x = y → Nat) x, rfl with | 0, h => ... | x+1, h => ... ``` With this change, the notation for giving names to equality proofs in `match`-expressions is not whitespace sensitive anymore. That is, we can now write ```lean match h : sort.swap a b with | (r₁, r₂) => ... -- `h : sort.swap a b = (r₁, r₂)` ``` * `(generalizing := true)` is the default behavior for `match` expressions even if the expected type is not a proposition. In the following example, we used to have to include `(generalizing := true)` manually. ```lean inductive Fam : Type → Type 1 where | any : Fam α | nat : Nat → Fam Nat example (a : α) (x : Fam α) : α := match x with | Fam.any => a | Fam.nat n => n ``` * We now use `PSum` (instead of `Sum`) when compiling mutually recursive definitions using well-founded recursion. * Better support for parametric well-founded relations. See [issue #1017](https://github.com/leanprover/lean4/issues/1017). This change affects the low-level `termination_by'` hint because the fixed prefix of the function parameters in not "packed" anymore when constructing the well-founded relation type. For example, in the following definition, `as` is part of the fixed prefix, and is not packed anymore. In previous versions, the `termination_by'` term would be written as `measure fun ⟨as, i, _⟩ => as.size - i` ```lean def sum (as : Array Nat) (i : Nat) (s : Nat) : Nat := if h : i < as.size then sum as (i+1) (s + as.get ⟨i, h⟩) else s termination_by' measure fun ⟨i, _⟩ => as.size - i ``` * Add `while do `, `repeat `, and `repeat until ` macros for `do`-block. These macros are based on `partial` definitions, and consequently are useful only for writing programs we don't want to prove anything about. * Add `arith` option to `Simp.Config`, the macro `simp_arith` expands to `simp (config := { arith := true })`. Only `Nat` and linear arithmetic is currently supported. Example: ```lean example : 0 < 1 + x ∧ x + y + 2 ≥ y + 1 := by simp_arith ``` * Add `fail ?` tactic that always fail. * Add support for acyclicity at dependent elimination. See [issue #1022](https://github.com/leanprover/lean4/issues/1022). * Add `trace ` tactic for debugging purposes. * Add nontrivial `SizeOf` instance for types `Unit → α`, and add support for them in the auto-generated `SizeOf` instances for user-defined inductive types. For example, given the inductive datatype ```lean inductive LazyList (α : Type u) where | nil : LazyList α | cons (hd : α) (tl : LazyList α) : LazyList α | delayed (t : Thunk (LazyList α)) : LazyList α ``` we now have `sizeOf (LazyList.delayed t) = 1 + sizeOf t` instead of `sizeOf (LazyList.delayed t) = 2`. * Add support for guessing (very) simple well-founded relations when proving termination. For example, the following function does not require a `termination_by` annotation anymore. ```lean def Array.insertAtAux (i : Nat) (as : Array α) (j : Nat) : Array α := if h : i < j then let as := as.swap! (j-1) j; insertAtAux i as (j-1) else as ``` * Add support for `for h : x in xs do ...` notation where `h : x ∈ xs`. This is mainly useful for showing termination. * Auto implicit behavior changed for inductive families. An auto implicit argument occurring in inductive family index is also treated as an index (IF it is not fixed, see next item). For example ```lean inductive HasType : Index n → Vector Ty n → Ty → Type where ``` is now interpreted as ```lean inductive HasType : {n : Nat} → Index n → Vector Ty n → Ty → Type where ``` * To make the previous feature more convenient to use, we promote a fixed prefix of inductive family indices to parameters. For example, the following declaration is now accepted by Lean ```lean inductive Lst : Type u → Type u | nil : Lst α | cons : α → Lst α → Lst α ``` and `α` in `Lst α` is a parameter. The actual number of parameters can be inspected using the command `#print Lst`. This feature also makes sure we still accept the declaration ```lean inductive Sublist : List α → List α → Prop | slnil : Sublist [] [] | cons l₁ l₂ a : Sublist l₁ l₂ → Sublist l₁ (a :: l₂) | cons2 l₁ l₂ a : Sublist l₁ l₂ → Sublist (a :: l₁) (a :: l₂) ``` * Added auto implicit "chaining". Unassigned metavariables occurring in the auto implicit types now become new auto implicit locals. Consider the following example: ```lean inductive HasType : Fin n → Vector Ty n → Ty → Type where | stop : HasType 0 (ty :: ctx) ty | pop : HasType k ctx ty → HasType k.succ (u :: ctx) ty ``` `ctx` is an auto implicit local in the two constructors, and it has type `ctx : Vector Ty ?m`. Without auto implicit "chaining", the metavariable `?m` will remain unassigned. The new feature creates yet another implicit local `n : Nat` and assigns `n` to `?m`. So, the declaration above is shorthand for ```lean inductive HasType : {n : Nat} → Fin n → Vector Ty n → Ty → Type where | stop : {ty : Ty} → {n : Nat} → {ctx : Vector Ty n} → HasType 0 (ty :: ctx) ty | pop : {n : Nat} → {k : Fin n} → {ctx : Vector Ty n} → {ty : Ty} → HasType k ctx ty → HasType k.succ (u :: ctx) ty ``` * Eliminate auxiliary type annotations (e.g, `autoParam` and `optParam`) from recursor minor premises and projection declarations. Consider the following example ```lean structure A := x : Nat h : x = 1 := by trivial example (a : A) : a.x = 1 := by have aux := a.h -- `aux` has now type `a.x = 1` instead of `autoParam (a.x = 1) auto✝` exact aux example (a : A) : a.x = 1 := by cases a with | mk x h => -- `h` has now type `x = 1` instead of `autoParam (x = 1) auto✝` assumption ``` * We now accept overloaded notation in patterns, but we require the set of pattern variables in each alternative to be the same. Example: ```lean inductive Vector (α : Type u) : Nat → Type u | nil : Vector α 0 | cons : α → Vector α n → Vector α (n+1) infix:67 " :: " => Vector.cons -- Overloading the `::` notation def head1 (x : List α) (h : x ≠ []) : α := match x with | a :: as => a -- `::` is `List.cons` here def head2 (x : Vector α (n+1)) : α := match x with | a :: as => a -- `::` is `Vector.cons` here ``` * New notation `.` based on Swift. The namespace is inferred from the expected type. See [issue #944](https://github.com/leanprover/lean4/issues/944). Examples: ```lean def f (x : Nat) : Except String Nat := if x > 0 then .ok x else .error "x is zero" namespace Lean.Elab open Lsp def identOf : Info → Option (RefIdent × Bool) | .ofTermInfo ti => match ti.expr with | .const n .. => some (.const n, ti.isBinder) | .fvar id .. => some (.fvar id, ti.isBinder) | _ => none | .ofFieldInfo fi => some (.const fi.projName, false) | _ => none def isImplicit (bi : BinderInfo) : Bool := bi matches .implicit end Lean.Elab ```