chore(tests/lean/extra): fix test
This commit is contained in:
parent
273753f3fc
commit
b58eac5013
1 changed files with 2 additions and 4 deletions
|
@ -2,15 +2,13 @@ LEAN_INFORMATION
|
|||
position 661:20
|
||||
A : Type,
|
||||
decA : decidable_eq A,
|
||||
all_of_subcount_eq_tt :
|
||||
∀ {l₁ l₂ : list A},
|
||||
subcount l₁ l₂ = tt → (∀ (a : A), list.count a l₁ ≤ list.count a l₂),
|
||||
all_of_subcount_eq_tt : ∀ {l₁ l₂}, subcount l₁ l₂ = tt → (∀ a, list.count a l₁ ≤ list.count a l₂),
|
||||
a : A,
|
||||
l₁ l₂ : list A,
|
||||
h : subcount (a :: l₁) l₂ = tt,
|
||||
x : A,
|
||||
this : subcount l₁ l₂ = tt,
|
||||
ih : ∀ (a : A), list.count a l₁ ≤ list.count a l₂,
|
||||
ih : ∀ a, list.count a l₁ ≤ list.count a l₂,
|
||||
i : list.count a (a :: l₁) ≤ list.count a l₂,
|
||||
this : x = a
|
||||
⊢ list.count x (a :: l₁) ≤ list.count x l₂
|
||||
|
|
Loading…
Reference in a new issue