2015-05-23 06:16:36 +00:00
|
|
|
tactic_id_bug.lean:22:4: proof state
|
2015-04-22 23:03:22 +00: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
|