blob: 67f686f2fb30c8ca8d1add3bccd6bae08c874e25 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
From Coq Require Import Int63 PArray.
Open Scope int63_scope.
Definition t : array nat := [| 1; 3; 2 | 4 |]%nat.
Definition foo1 := (eq_refl : PArray.length t = 3).
Definition foo2 := (eq_refl 3 <: PArray.length t = 3).
Definition foo3 := (eq_refl 3 <<: PArray.length t = 3).
Definition x1 := Eval compute in PArray.length t.
Definition foo4 := (eq_refl : x1 = 3).
Definition x2 := Eval cbn in PArray.length t.
Definition foo5 := (eq_refl : x2 = 3).
|
