diff options
| author | Pierre-Marie Pédrot | 2016-02-29 18:11:47 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-02-29 18:11:47 +0100 |
| commit | 032be0a3bb572782531d39f271c8befc2a05c60a (patch) | |
| tree | 0ff9609e6a03baba58a1b1072a9c3b8b593ad6f9 /test-suite | |
| parent | 4d25b224b91959b85fcd68c825a307ec684f0bac (diff) | |
| parent | 1397f791b1699b0f04d971465270d5b2df9a6d7f (diff) | |
Merge branch 'clean-atomic-tactics'
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/3612.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3612.v b/test-suite/bugs/closed/3612.v index 9125ab16dd..25060debe2 100644 --- a/test-suite/bugs/closed/3612.v +++ b/test-suite/bugs/closed/3612.v @@ -35,6 +35,9 @@ Axiom path_path_sigma : forall {A : Type} (P : A -> Type) (u v : sigT P) (r : p..1 = q..1) (s : transport (fun x => transport P x u.2 = v.2) r p..2 = q..2), p = q. + +Declare ML Module "coretactics". + Goal forall (A : Type) (B : forall _ : A, Type) (x : @sigT A (fun x : A => B x)) (xx : @paths (@sigT A (fun x0 : A => B x0)) x x), @paths (@paths (@sigT A (fun x0 : A => B x0)) x x) xx |