mirror of
https://github.com/Smaug123/agdaproofs
synced 2025-10-14 07:58:41 +00:00
26 lines
533 B
Agda
26 lines
533 B
Agda
{-# OPTIONS --safe --warning=error --without-K #-}
|
||
|
||
open import LogicalFormulae
|
||
open import Numbers.Integers.Integers
|
||
open import Numbers.Integers.Definition
|
||
open import Lists.Lists
|
||
open import Maybe
|
||
|
||
|
||
module Groups.Polynomials.Examples where
|
||
|
||
open import Groups.Polynomials.Definition ℤGroup
|
||
|
||
private
|
||
decide : _
|
||
decide = (λ a → ℤDecideEquality a (nonneg 0))
|
||
|
||
p1 : degree decide [] ≡ no
|
||
p1 = refl
|
||
|
||
p2 : degree decide (nonneg 0 :: []) ≡ no
|
||
p2 = refl
|
||
|
||
p3 : degree decide (nonneg 1 :: []) ≡ yes 0
|
||
p3 = refl
|