diff options
Diffstat (limited to 'contrib/extraction/test_extraction.v')
| -rw-r--r-- | contrib/extraction/test_extraction.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/contrib/extraction/test_extraction.v b/contrib/extraction/test_extraction.v index ef7d80e0c5..44aeff3174 100644 --- a/contrib/extraction/test_extraction.v +++ b/contrib/extraction/test_extraction.v @@ -388,3 +388,12 @@ let oups h0 = match h0 with Extraction (sigT Set [a:Set](option a)). (* (unit, Obj.t option) sigT *) + +(* Coq term non strongly-normalizable after extraction *) + +Require Gt. +Definition loop := + [Ax:(Acc nat gt O)] + (Fix F {F [a:nat;b:(Acc nat gt a)] : nat := + (F (S a) (Acc_inv nat gt a b (S a) (gt_Sn_n a)))} + O Ax).
\ No newline at end of file |