diff options
-rw-r--r-- | test-suite/complexity/guard.v | 2 | ||||
-rw-r--r-- | test-suite/success/Inductive.v | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/test-suite/complexity/guard.v b/test-suite/complexity/guard.v index f64ffc259..387263e2f 100644 --- a/test-suite/complexity/guard.v +++ b/test-suite/complexity/guard.v @@ -1,6 +1,6 @@ (* Examples to check that the guard condition does not unfold irrelevant subterms *) -(* Expected time < 1s *) +(* Expected time < 1.00s *) Require Import Bool. Fixpoint slow n := diff --git a/test-suite/success/Inductive.v b/test-suite/success/Inductive.v index 8ffe4fcdb..41819d921 100644 --- a/test-suite/success/Inductive.v +++ b/test-suite/success/Inductive.v @@ -56,11 +56,11 @@ Check (* Check inductive types with local definitions (constructors) *) -Inductive I1 : Set := c (_:I1) (_:=0). +Inductive I1 : Set := C1 (_:I1) (_:=0). Check (fun x:I1 => match x with - | c i n => (i,n) + | C1 i n => (i,n) end). (* Check implicit parameters of inductive types (submitted by Pierre |