text:
-- Andreas, 2019-03-27
-- Do not run checkIApplyConfluence unless --cubical

-- The following verbosity options triggers a crash
-- in case checkIApplyConfluence_ runs.

-- {-# OPTIONS --cubical #-}  -- Trigges the crash.

{-# OPTIONS -v tc.cover.iapply.confluence.crash:666 #-}  -- Activate crashing program point.

open import Agda.Builtin.Nat

-- A harmless definition.

id : Nat → Nat
id zero    = zero
id (suc x) = suc (id x)

-- Should succeed.

ext: agda

max_stars_repo_name: shlevy/agda

max_issues_repo_name: shlevy/agda

max_forks_repo_name: Agda-zh/agda

lm_label:
1. NO
2. NO


text:
-- Andreas, 2016-06-08
-- Better error message when case splitting is invoked in location
-- where there is nothing to split

record R : Set where
  field f : {!!}

-- C-c C-c RET here gives:
-- Cannot split here, as we are not in a function definition


text:
------------------------------------------------------------------------------
-- Colists
------------------------------------------------------------------------------

{-# OPTIONS --exact-split              #-}
{-# OPTIONS --no-sized-types           #-}
{-# OPTIONS --no-universe-polymorphism #-}
{-# OPTIONS --without-K                #-}

module FOTC.Data.Colist where

open import FOTC.Base
open import FOTC.Data.Colist.Type public

max_stars_repo_name: asr/fotc

max_issues_repo_name: asr/fotc

max_forks_repo_name: asr/fotc


text:
-- Andreas, 2017-03-27, issue #2183
-- Better error message for splitting on non-visible dot pattern.

open import Agda.Builtin.Equality
open import Agda.Builtin.Nat

data Fin : Nat → Set where
  fzero : ∀ n → Fin (suc n)

test : ∀ n (i : Fin n) → Set
test n (fzero m)  = {!n!}  -- C-c C-c

-- Current error:
-- Cannot split on variable n, because it is bound to term  suc m
-- when checking that the expression ? has type Set

-- Desired behavior: succeed.

max_stars_repo_name: cruhland/agda

max_issues_repo_name: cruhland/agda

max_forks_repo_name: cruhland/agda


text:
-- Andreas, 2017-01-12, re #2386
-- Correct error message for wrong BUILTIN UNIT

data Bool : Set where
  true false : Bool

{-# BUILTIN UNIT Bool #-}

-- Error WAS:
-- The builtin UNIT must be a datatype with 1 constructors
-- when checking the pragma BUILTIN UNIT Bool

-- Expected error:
-- Builtin UNIT must be a singleton record type
-- when checking the pragma BUILTIN UNIT Bool


text:
-- Andreas, 2020-03-21, issue #4456

{-# OPTIONS --safe #-}

postulate A : Set


text:
------------------------------------------------------------------------
-- Streams
------------------------------------------------------------------------

module Stream where

open import Codata.Musical.Stream public renaming (_∷_ to _≺_)

max_stars_repo_name: nad/codata

max_issues_repo_name: nad/codata

max_forks_repo_name: nad/codata


text:
-- Andreas, 2017-08-13, issue #2684
-- Better error for abstract constructor.

abstract
  data D : Set where
    c : D

  data E : Set where
    c : E

test : D
test = c

-- Expected:
-- Constructor c is abstract, thus, not in scope here
-- when checking that the expression c has type D