Skip to content
Browse files

Fix refine bug

  • Loading branch information...
1 parent 21dcadb commit 23d8bc68d705c2e11009f137edb3f5eced84d960 Edwin Brady committed Aug 23, 2011
Showing with 2 additions and 0 deletions.
  1. +2 −0 Ivor/Tactics.lhs
View
2 Ivor/Tactics.lhs
@@ -360,6 +360,8 @@ names. Let's record which ones...
> mkns (UN a) (UN b) = UN (a++"_"++b)
> mkns (MN (a,i)) (UN b) = MN (a++"_"++b, i)
> mkns (MN (a,i)) (MN (b,j)) = MN (a++"_"++b, i)
+> mkns (UN b) (MN (a,i)) = MN (b++"_"++a, i)
+> mkns x y = error $ "FAIL: " ++ show (x,y)
> doClaims :: Name -> [((Name, TT Name), Maybe (TT Name))] -> Tactic
> doClaims h [] gam env tm = tacret $ tm

0 comments on commit 23d8bc6

Please sign in to comment.
Something went wrong with that request. Please try again.