Skip to content

Instantly share code, notes, and snippets.

@JasonGross
Created September 3, 2013 20:11
Show Gist options
  • Select an option

  • Save JasonGross/6428931 to your computer and use it in GitHub Desktop.

Select an option

Save JasonGross/6428931 to your computer and use it in GitHub Desktop.
Module Bug.
Axiom A : Set.
Axiom I : Set.
Module Type IWrapper.
Axiom i : I.
End IWrapper.
Module R (i : IWrapper).
Axiom f : A.
End R.
Axiom r : I.
Axiom X : I -> I.
Axiom Q : A -> Set.
Module Qualified.
Module K : IWrapper.
Definition i := X r.
End K.
Module RK := R K.
(* open in agda is Import in Coq, I think *)
Import RK.
Definition foo : Q f.
(**
1 subgoals, subgoal 1 (ID 8)
============================
Q f
(dependent evars:)
*)
Admitted.
End Qualified.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment