diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-27 16:51:52 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-27 16:51:52 +0000 |
commit | a1596ac8127071db6c507909bd9723edc720542d (patch) | |
tree | 854a8532246222a4fcff6818a1cfc7972155c86f /lib/genarg.ml | |
parent | 67a755713eaabf37f4d8e5fd85b4fb04e316938a (diff) |
Getting rid of IntroPatternArgType.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16610 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/genarg.ml')
-rw-r--r-- | lib/genarg.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lib/genarg.ml b/lib/genarg.ml index dbde4652c..77c8922a0 100644 --- a/lib/genarg.ml +++ b/lib/genarg.ml @@ -12,7 +12,6 @@ open Util type argument_type = (* Basic types *) | IntOrVarArgType - | IntroPatternArgType | IdentArgType of bool | VarArgType | RefArgType @@ -34,7 +33,6 @@ type argument_type = let rec argument_type_eq arg1 arg2 = match arg1, arg2 with | IntOrVarArgType, IntOrVarArgType -> true -| IntroPatternArgType, IntroPatternArgType -> true | IdentArgType b1, IdentArgType b2 -> (b1 : bool) == b2 | VarArgType, VarArgType -> true | RefArgType, RefArgType -> true |