diff options
| author | letouzey | 2012-10-06 10:08:48 +0000 |
|---|---|---|
| committer | letouzey | 2012-10-06 10:08:48 +0000 |
| commit | 30cf9c6711df3eb583dacad3cb98158adbbf1f5f (patch) | |
| tree | dbb893378505ee744b94b4d8ef051018dac9d813 /grammar | |
| parent | 3ab6c3a21f569ec684737e45200aa1b32f009214 (diff) | |
remove useless hidden_flag in TacMutual(Co)Fix
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15874 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/q_coqast.ml4 | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/grammar/q_coqast.ml4 b/grammar/q_coqast.ml4 index cbbc9e1871..4fe6d6aa11 100644 --- a/grammar/q_coqast.ml4 +++ b/grammar/q_coqast.ml4 @@ -335,22 +335,20 @@ let rec mlexpr_of_atomic_tactic = function let ido = mlexpr_of_ident_option ido in let n = mlexpr_of_int n in <:expr< Tacexpr.TacFix $ido$ $n$ >> - | Tacexpr.TacMutualFix (b,id,n,l) -> - let b = mlexpr_of_bool b in + | Tacexpr.TacMutualFix (id,n,l) -> let id = mlexpr_of_ident id in let n = mlexpr_of_int n in let f =mlexpr_of_triple mlexpr_of_ident mlexpr_of_int mlexpr_of_constr in let l = mlexpr_of_list f l in - <:expr< Tacexpr.TacMutualFix $b$ $id$ $n$ $l$ >> + <:expr< Tacexpr.TacMutualFix $id$ $n$ $l$ >> | Tacexpr.TacCofix ido -> let ido = mlexpr_of_ident_option ido in <:expr< Tacexpr.TacCofix $ido$ >> - | Tacexpr.TacMutualCofix (b,id,l) -> - let b = mlexpr_of_bool b in + | Tacexpr.TacMutualCofix (id,l) -> let id = mlexpr_of_ident id in let f = mlexpr_of_pair mlexpr_of_ident mlexpr_of_constr in let l = mlexpr_of_list f l in - <:expr< Tacexpr.TacMutualCofix $b$ $id$ $l$ >> + <:expr< Tacexpr.TacMutualCofix $id$ $l$ >> | Tacexpr.TacCut c -> <:expr< Tacexpr.TacCut $mlexpr_of_constr c$ >> |