diff options
Diffstat (limited to 'test-suite/bugs/closed/331.v')
-rw-r--r-- | test-suite/bugs/closed/331.v | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/331.v b/test-suite/bugs/closed/331.v new file mode 100644 index 00000000..9ef796fa --- /dev/null +++ b/test-suite/bugs/closed/331.v @@ -0,0 +1,20 @@ +Module Type TIT. + +Inductive X:Set:= + b:X. +End TIT. + + +Module Type TOTO. +Declare Module t:TIT. +Inductive titi:Set:= + a:t.X->titi. +End TOTO. + + +Module toto (ta:TOTO). +Module ti:=ta.t. + +Definition ex1:forall (c d:ti.X), (ta.a d)=(ta.a c) -> d=c. +intros. +injection H. |