diff options
| author |  Jason Gross <jgross@mit.edu> | 2014-06-22 18:09:09 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2014-06-22 20:43:44 -0400 |
| commit | 75940a69b0151191ded0ff153ec5490436786faa (patch) | |
| tree | 5fba0102d1485fdaf0e309fe3aed11360a3ed036 /test-suite/bugs/closed/331.v | |
| parent | 60648dacca424a2f1d5c5a4634dd276b4dbe3fb7 (diff) | |
More test-suite cases
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 000000000..9ef796faf --- /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. |