[ test ] for the perf regression

This commit is contained in:
Guillaume Allais 2024-07-26 13:58:24 +01:00 committed by G. Allais
parent adf284260b
commit 3f76bfdd6f
3 changed files with 15 additions and 0 deletions

View File

@ -0,0 +1,12 @@
import Data.Fin
covering
g : Fin 64 -> Unit
g FZ = ()
g (FS i') = g $ weaken i'
total
g' : Fin 64 -> Unit
g' FZ = ()
g' i@(FS i') = g' $ assert_smaller i $ weaken i'

View File

@ -0,0 +1 @@
1/1: Building Issue3354 (Issue3354.idr)

View File

@ -0,0 +1,2 @@
. ../../../testutils.sh
check Issue3354.idr