From 6b649aba925b6f7462da07599fe67ebb12a3460e Mon Sep 17 00:00:00 2001 From: Samuel Mimram Date: Wed, 28 Jul 2004 21:54:47 +0000 Subject: Imported Upstream version 8.0pl1 --- test-suite/output/implicits.v | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 test-suite/output/implicits.v (limited to 'test-suite/output/implicits.v') diff --git a/test-suite/output/implicits.v b/test-suite/output/implicits.v new file mode 100644 index 00000000..d7ea7227 --- /dev/null +++ b/test-suite/output/implicits.v @@ -0,0 +1,13 @@ +Set Implicit Arguments. + +(* Suggested by Pierre Casteran (bug #169) *) +(* Argument 3 is needed to typecheck and should be printed *) +Definition compose := [A,B,C:Set; f : A-> B ; g : B->C ; x : A] (g (f x)). +Check (compose 3!nat S). + +(* Better to explicitly display the arguments inferable from a + position that could disappear after reduction *) +Inductive ex [A:Set;P:A->Prop] : Prop + := ex_intro : (x:A)(P x)->(ex P). +Check (ex_intro 2![_]True 3!O I). + -- cgit v1.2.3