Mercurial > hg > Members > kono > Proof > automaton

comparison automaton-in-agda/src/finiteSet.agda @ 403:c298981108c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix for std-lib 2.0
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 24 Sep 2023 11:32:01 +0900
parents 91781b7c65a8
children b85402051cdb
comparison
equal deleted inserted replaced
402:093e386c10a2 403:c298981108c1
1 {-# OPTIONS --allow-unsolved-metas #-} 1 {-# OPTIONS --cubical-compatible --safe #-}
2 module finiteSet where 2 module finiteSet where
3 3
4 open import Data.Nat hiding ( _≟_ ) 4 open import Data.Nat hiding ( _≟_ )
5 open import Data.Fin renaming ( _<_ to _<<_ ) hiding (_≤_) 5 open import Data.Fin renaming ( _<_ to _<<_ ) hiding (_≤_)
6 -- open import Data.Fin.Properties hiding ( ≤-refl ) 6 -- open import Data.Fin.Properties hiding ( ≤-refl )
10 open import Relation.Binary.PropositionalEquality 10 open import Relation.Binary.PropositionalEquality
11 open import logic 11 open import logic
12 open import nat 12 open import nat
13 open import Data.Nat.Properties hiding ( _≟_ ) 13 open import Data.Nat.Properties hiding ( _≟_ )
14 14
15 open import Relation.Binary.HeterogeneousEquality as HE using (_≅_ ) 15 -- open import Relation.Binary.HeterogeneousEquality as HE using (_≅_ )
16 16
17 record FiniteSet ( Q : Set ) : Set where 17 record FiniteSet ( Q : Set ) : Set where
18 field 18 field
19 finite : ℕ 19 finite : ℕ
20 Q←F : Fin finite → Q 20 Q←F : Fin finite → Q