insertEraseROccs

Mathlib.Tactic.CC.Addition

URI: https://scilib.ai/kg/mathlib#Mathlib.Tactic.CC.CCM.insertEraseROccs

Lean4

/-- Insert or erase `lhs` to the occurrences of arguments of `e` on an equality in `acR`. -/
def insertEraseROccs (e lhs : ACApps) (inLHS isInsert : Bool) : CCM Unit := do
  match e with
  | .apps _ args =>
    insertEraseROcc args[0]! lhs inLHS isInsert
    for h : i in [1:args.size]do
      if args[i] != args[i - 1]! then
        insertEraseROcc args[i] lhs inLHS isInsert
  | .ofExpr e =>
    insertEraseROcc e lhs inLHS isInsert

Похожие утверждения

Научная платформа российской исследовательской школы.

Разделы

MathLib Explorer
Graph RAG
Лаборатория
Блог
О проекте
Команда

Аффилиация

Вычислительный центр им. А. А. Дороницына при ФИЦ «Информатика и Управление» РАН frccsc.ru