mirror of
https://github.com/ilyakooo0/Idris-dev.git
synced 2024-09-22 06:29:37 +03:00
10 lines
260 B
Idris
10 lines
260 B
Idris
module Main
|
|
|
|
import Syntax.PreorderReasoning
|
|
import Control.Isomorphism
|
|
|
|
stupidProof : Iso (Either a b) (Either a b)
|
|
stupidProof {a} {b} = (Either a b) ={ eitherComm }=
|
|
(Either b a) ={ eitherComm }=
|
|
(Either a b) QED
|