e9f069146c
This PR adds the `monotonicity` tactic, intended to be used inside the `partial_fixpoint` feature. Part of #6355.
29 lines
620 B
Text
29 lines
620 B
Text
-- Tests the `monotonicity` tactic
|
|
|
|
-- These can move to Init after a stage0 update
|
|
open Lean.Order in
|
|
attribute [partial_fixpoint_monotone]
|
|
monotone_ite
|
|
monotone_dite
|
|
monotone_bind
|
|
|
|
/-
|
|
Should test that the tactic syntax is scoped, but cannot use #guard_msgs to catch “tactic not known”
|
|
errors, it seems:
|
|
|
|
/--
|
|
error: unsolved goals
|
|
⊢ True
|
|
-/
|
|
#guard_msgs in
|
|
example : True := by monotonicity
|
|
|
|
-/
|
|
|
|
open Lean.Order
|
|
|
|
example : monotone (fun (f : Nat → Option Unit) => do {do f 1; f 2; f 3}) := by
|
|
repeat monotonicity
|
|
|
|
example : monotone (fun (f : Option Unit) => do {do f; f; f}) := by
|
|
repeat monotonicity
|