flipProofCore

Mathlib.Tactic.CC.MkProof

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

Lean4

/-- Apply symmetry to `H`, which is an `Eq` or a `HEq`.

* If `heqProofs` is true, ensure the result is a `HEq` (otherwise it is assumed to be `Eq`).
* If `flipped` is true, apply `symm`, otherwise keep the same direction. -/
def flipProofCore (H : Expr) (flipped heqProofs : Bool) : CCM Expr := do
  let mut newH := H
  if ← liftM <| pure heqProofs <&&> Expr.isEq <$> (inferType H >>= whnf) then
    newH ← mkAppM ``heq_of_eq #[H]
  if !flipped then
    return newH
  else if heqProofs then
    mkHEqSymm newH
  else
    mkEqSymm newH

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

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

Разделы

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

Аффилиация

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