2015-05-23 16:16:36 +10:00
|
|
|
tactic_id_bug.lean:22:4: proof state
|
2015-04-22 16:03:22 -07:00
|
|
|
A : Type,
|
|
|
|
gfunc gfinv : A → A,
|
|
|
|
glinv : gfinv ∘ gfunc = id,
|
|
|
|
grinv : gfunc ∘ gfinv = id,
|
|
|
|
func finv : A → A,
|
|
|
|
linv : finv ∘ func = id,
|
|
|
|
rinv : func ∘ finv = id
|
|
|
|
⊢ func (mk func finv linv rinv) = func (mk gfunc gfinv glinv grinv) →
|
|
|
|
finv (mk func finv linv rinv) = finv (mk gfunc gfinv glinv grinv) →
|
|
|
|
mk func finv linv rinv = mk gfunc gfinv glinv grinv
|